Единоразовое отлавливание Клика Мыши

library Project2;
Uses Windows,Messages,SysUtils;
Var SysHook:HHook=0;
 
Function SysMsgProc(Code:Integer; WParam:LongInt; LParam:LongInt): Lresult;{:LongInt;} stdcall;
Var
  Msg:TMessage;
  foo: TPoint;
Begin
 IF (Code>=0) then
  Case TMsg(Pointer(LParam)^).Message OF
  //Case WParam of
   WM_LBUTTONUP:
   begin
   GetCursorPos(foo);
   UnhookWindowsHookEx(SysHook);
   SysHook:=0;
   CallNextHookEx(SysHook,Code,WParam,LParam);
   messagebox(0, PAnsiChar(inttostr(foo.x)+'!!!'+inttostr(foo.y)), 'МЭММмв', mb_iconhand);
   end
   else Result:=CallNextHookEx(SysHook,Code,WParam,LParam);
  End;
end;
 
procedure Hook(Flag:Boolean); export; stdcall;
Begin
 IF Flag then SysHook:=SetWindowsHookEx(WH_GETMESSAGE,@SysMsgProc,HInstance,0) Else
  Begin
   UnhookWindowsHookEx(SysHook);
   SysHook:=0;
  End;
End;
 
exports Hook;
 
 
{$R *.res}
 
begin
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;
 
type
  MyProcType = procedure (Flag: Boolean); stdcall;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  HDLL:HWND;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 IF Button=mbRight then ShowMessage('Right mouse key pressed');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
Var Hook: MyProcType;
Begin
 @Hook:=nil;
 HDLL:=LoadLibrary(PChar('project2.dll')); // загрузка DLL }
 IF HDLL>HINSTANCE_ERROR then            // если всё без ошибок, то
  Begin
   @Hook:=GetProcAddress(HDLL,'Hook');     // получаем указатель на необходимую процедуру
   Hook(True);
  End else MessageDlg('Ошибка при загрузке DLL.',mtError,[mbIgnore],0);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
Var Hook: MyProcType;
Begin
 @Hook:=nil;
 IF HDLL>HINSTANCE_ERROR then
  Begin                                   // если всё без ошибок, то
   @Hook:=GetProcAddress(HDLL,'Hook');  // получаем указатель на необходимую процедуру}
   Hook(False);                         //  вызываем нужную процедуру из DLL
  End;
End;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
 Button2.Click;
end;
 
end.

HookHandle:=SetWindowsHookEx(WH_JOURNALRECORD, @Hook, HInstance, 0);

 IF (Code>=0) then
  Case TMsg(Pointer(LParam)^).Message OF
   WM_LBUTTONUP: