diff --git a/packages/fcl-base/tests/tccsvreadwrite.pp b/packages/fcl-base/tests/tccsvreadwrite.pp
index 16d8f7d3d2..23b5c38cd3 100644
--- a/packages/fcl-base/tests/tccsvreadwrite.pp
+++ b/packages/fcl-base/tests/tccsvreadwrite.pp
@@ -5,7 +5,7 @@ unit tccsvreadwrite;
 interface
 
 uses
-  Classes, SysUtils, fpcunit, testutils, testregistry, csvreadwrite;
+  Classes, SysUtils, fpcunit, testregistry, csvreadwrite;
 
 type
 
@@ -102,7 +102,7 @@ end;
 procedure TTestCSVReadWrite.SetUp;
 begin
   FParser:=TCSVParser.Create;
-  FData:=Tstrings.Create;
+  FData:=TStringList.Create;
 end;
 
 procedure TTestCSVReadWrite.TearDown;
diff --git a/packages/fcl-base/tests/testexprpars.pp b/packages/fcl-base/tests/testexprpars.pp
index e46a3a85c1..54585307db 100644
--- a/packages/fcl-base/tests/testexprpars.pp
+++ b/packages/fcl-base/tests/testexprpars.pp
@@ -5127,6 +5127,7 @@ Var
   Res : TFPExpressioNResult;
 
 begin
+  Res:=Default(TFPExpressioNResult);
   AssertEquals('Only one identifier',1,FP.Identifiers.Count);
   Case FAccessAs of
     rtBoolean  : FP.Identifiers[0].AsBoolean:=res.ResBoolean;
@@ -6738,6 +6739,7 @@ Var
   I : Integer;
 
 begin
+  Result:=Default(TExprArgumentArray);
   SetLength(Result,High(Args)-Low(Args)+1);
   For I:=Low(Args) to High(Args) do
     Result[I]:=Args[i].VObject as TFPExprNode;