tests: fix record helper test

git-svn-id: trunk@19056 -

tests/test/trhlp43.pp

@@ -19,7 +19,9 @@ class procedure TTestHelper.Test;
 begin
 end;
 
+var
+  T: TTest;
 begin
-  with TTest do
+  with T do
     Test;
 end.