--- ibx/trunk/fbintf/testsuite/Test15.pas	2016/12/06 10:33:46	45
+++ ibx/trunk/fbintf/testsuite/Test15.pas	2017/03/06 10:20:02	56
@@ -1,7 +1,12 @@
 unit Test15;
+{$IFDEF MSWINDOWS} 
+{$DEFINE WINDOWS} 
+{$ENDIF}
 
-{$mode objfpc}{$H+}
+{$IFDEF FPC}
+{$mode delphi}
 {$codepage UTF8}
+{$ENDIF}
 
 {Test 15: Blob Handling and BPBs}
 
@@ -29,8 +34,8 @@ type
     procedure UpdateDatabase(Attachment: IAttachment);
     procedure QueryDatabase(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;
 
 
@@ -110,12 +115,12 @@ begin
   ReportResults(Statement);
 end;
 
-function TTest15.TestTitle: string;
+function TTest15.TestTitle: AnsiString;
 begin
   Result := 'Test 15: Blob Handling and BPBs';
 end;
 
-procedure TTest15.RunTest(CharSet: string; SQLDialect: integer);
+procedure TTest15.RunTest(CharSet: AnsiString; SQLDialect: integer);
 var DPB: IDPB;
     Attachment: IAttachment;
 begin