tests: fixed mem leak

tests/base/tctextlayout.pas

@@ -291,7 +291,6 @@ begin
   inherited SetUp;
   Layouter.Text:='this text';
   FTextBlock:=CreateTextBlock(0,4);
-  FFont:=TTextFont.Create(nil);
   FTextBlock.Font:=FFont;
   Block.Font.Name:='Arial';
   Block.Font.Size:=12;
@@ -301,7 +300,6 @@ end;
 
 procedure TTestTextBlock.TearDown;
 begin
-  FreeAndNil(FFont);
   FreeAndNil(FTextBlock);
   inherited TearDown;
 end;