--- ibx/trunk/fbintf/testsuite/Test3.pas	2017/10/18 09:05:31	69
+++ ibx/trunk/fbintf/testsuite/Test3.pas	2017/10/26 12:59:51	70
@@ -53,6 +53,7 @@ var Transaction: ITransaction;
     ResultSet: IResultSet;
     Statement: IStatement;
     TPB: ITPB;
+    us: UnicodeString;
 begin
   writeln(OutFile,'Employee Count = ',Attachment.OpenCursorAtStart('Select count(*) from EMPLOYEE')[0].AsInteger);
 
@@ -101,6 +102,16 @@ begin
          Attachment.StartTransaction([isc_tpb_read,isc_tpb_nowait,isc_tpb_concurrency],taCommit),
          'Select count(*) As Counter from EMPLOYEE Where EMP_NO < ?',3,[8])[0].AsInteger);
 
+  writeln(OutFile,'"Johnson" Employee Count = ',Attachment.OpenCursorAtStart(
+         Attachment.StartTransaction([isc_tpb_read,isc_tpb_nowait,isc_tpb_concurrency],taCommit),
+         'Select count(*) As Counter from EMPLOYEE Where LAST_NAME = ?',3,['Johnson'])[0].AsInteger);
+
+  us := UTF8Decode('Yanowski');   {Test a UnicodeString as a parameter}
+
+  writeln(OutFile,'"Yanowski" Employee Count = ',Attachment.OpenCursorAtStart(
+         Attachment.StartTransaction([isc_tpb_read,isc_tpb_nowait,isc_tpb_concurrency],taCommit),
+         'Select count(*) As Counter from EMPLOYEE Where LAST_NAME = ?',3,[us])[0].AsInteger);
+
 end;
 
 function TTest3.TestTitle: AnsiString;