--- ibx/trunk/fbintf/testsuite/test2.pas	2017/02/24 17:05:03	55
+++ ibx/trunk/fbintf/testsuite/test2.pas	2017/03/06 10:20:02	56
@@ -1,7 +1,12 @@
 unit test2;
+{$IFDEF MSWINDOWS} 
+{$DEFINE WINDOWS} 
+{$ENDIF}
 
-{$mode objfpc}{$H+}
+{$IFDEF FPC}
+{$mode delphi}
 {$codepage utf8}
+{$ENDIF}
 
 {Test 2: Open the employee database and run a query}
 
@@ -31,8 +36,8 @@ TTest2 = class(TTestBase)
 private
   procedure DoQuery(Attachment: IAttachment);
 public
-  function TestTitle: string; override;
-  procedure RunTest(CharSet: string; SQLDialect: integer); override;
+  function TestTitle: AnsiString; override;
+  procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
 end;
 
 
@@ -70,12 +75,12 @@ begin
     end;
 end;
 
-function TTest2.TestTitle: string;
+function TTest2.TestTitle: AnsiString;
 begin
   Result := 'Test 2: Open the employee database and run a query';
 end;
 
-procedure TTest2.RunTest(CharSet: string; SQLDialect: integer);
+procedure TTest2.RunTest(CharSet: AnsiString; SQLDialect: integer);
 var Attachment: IAttachment;
     DPB: IDPB;
 begin