diff --git a/packages/fcl-db/tests/testfieldtypes.pas b/packages/fcl-db/tests/testfieldtypes.pas
index 03e94fabdc..42ccb767b7 100644
--- a/packages/fcl-db/tests/testfieldtypes.pas
+++ b/packages/fcl-db/tests/testfieldtypes.pas
@@ -470,10 +470,7 @@ var
   I: Integer;
 begin
   if SQLServerType<>ssMSSQL then
-  begin
-    WriteLn('TestMSSQLLargeStrings is suitable only for MSSQL');
-    Exit;
-  end;
+    Ignore('TestMSSQLLargeStrings is suitable only for MSSQL');
   Q := TSQLQuery.Create(nil);
   try
     Q.SQLConnection := TSQLDBConnector(DBConnector).Connection;