1 files changed, 4 insertions, 5 deletions
diff --git a/UProgress.pas b/UProgress.pas
index f389328..bc6410b 100644
--- a/UProgress.pas
+++ b/UProgress.pas
@@ -22,8 +22,7 @@ unit UProgress;
 interface
 
 uses
-  SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKView,
-  UEngines;
+  SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts;
 
 type
   TFProgress = class(TGTKDialog)
@@ -89,9 +88,9 @@ begin
 //  ClientArea.AddControlEx(Space, False, False, 0);
 //  ClientArea.AddControlEx(VBox, True, True, 0);
 //  AddControl(VBox);
-  OnKeyDown := FormKeyDown;
-  OnCloseQuery := FormCloseQuery;
-  CancelButton.OnClick := CancelButtonClick;
+  OnKeyDown := @FormKeyDown;
+  OnCloseQuery := @FormCloseQuery;
+  CancelButton.OnClick := @CancelButtonClick;
   CancelButton.Default := True;
 end;