diff --git a/tests/test/trhlp43.pp b/tests/test/trhlp43.pp
index 86220c8c38..c5eacd5d08 100644
--- a/tests/test/trhlp43.pp
+++ b/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.