From ab1727e00b76ac38a104cf8f9edff93f515dfbb9 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Fri, 15 Mar 2019 11:23:36 +0000
Subject: [PATCH] LCL-Win32: Optimize TWindowProcHelper. Issue #35223, patch
 from Benito van der Zander.

git-svn-id: trunk@60678 -
---
 lcl/interfaces/win32/win32callback.inc | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index c7662fef9e..079e6f6b72 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -293,7 +293,7 @@ end;
 type
   TAccessCustomEdit = class(TCustomEdit);
 
-  TWindowProcHelper = class
+  TWindowProcHelper = object
   private
     // WindowProc parameters
     Window: HWnd;            // DWord / QWord
@@ -2663,17 +2663,13 @@ function
 var
   Helper: TWindowProcHelper;
 begin
-  Helper := TWindowProcHelper.Create;
-  try
-    Helper.Window := Window;
-    Helper.Msg := Msg;
-    Helper.WParam := WParam;
-    Helper.LParam := LParam;
-    Helper.NMHdr := PNMHdr(LParam);
-    Result := Helper.DoWindowProc;
-  finally
-    Helper.Free;
-  end;
+  helper := default(TWindowProcHelper);
+  Helper.Window := Window;
+  Helper.Msg := Msg;
+  Helper.WParam := WParam;
+  Helper.LParam := LParam;
+  Helper.NMHdr := PNMHdr(LParam);
+  Result := Helper.DoWindowProc;
 end;
 
 {$ifdef MSG_DEBUG}