Fixed Unicode/AnsiString issue

Author: ReinierNL

Demos/Demo23/Unit1.pas

@@ -26,9 +26,7 @@   TForm1 = class(TForm)
     procedure Button3Click(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure PythonInputOutput1SendData(Sender: TObject;
-      const Data: String);
-  private
-  public
+      const Data: AnsiString);
   end;
 
 
@@ -69,10 +67,10 @@ procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 end;
 
 procedure TForm1.PythonInputOutput1SendData(Sender: TObject;
-  const Data: String);
+  const Data: AnsiString);
 begin
 {$IFDEF MSWINDOWS}
-  OutputDebugString( PAnsiChar(Data) );
+  OutputDebugStringA( PAnsiChar(Data) );
 {$ENDIF}
 {$IFDEF LINUX}
   WriteLn( ErrOutput, Data );