diff --git a/TestSuite/delegates14.pas b/TestSuite/delegates14.pas
index a73999fcd..e18e44efd 100644
--- a/TestSuite/delegates14.pas
+++ b/TestSuite/delegates14.pas
@@ -14,6 +14,6 @@ begin
   Action(d);
   assert(i = 1);
   var d2: Delegate := ()->Test();
-  TProc(d2);
+  Action(d2);
   assert(i = 2);
 end.
\ No newline at end of file