From 6ba1ca87169b598e26b80968221bc1ceff7e0b97 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=D0=91=D0=BE=D0=BD=D0=B4=D0=B0=D1=80=D0=B5=D0=B2=20=D0=98?= =?UTF-8?q?=D0=B2=D0=B0=D0=BD?= Date: Sun, 28 Jun 2020 13:49:07 +0200 Subject: [PATCH] fix --- TestSuite/delegates14.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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