Działanie programu poza formą

Witam serdecznie,
Chcę zrobić aplikację, która po wciśnięciu skrótu klawiszowego (z MainMenu) symuluje lewy przycisk myszy:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  CurrentPos : TPoint;
  CurrentWindow : HWND;
begin
  CurrentWindow := GetForegroundWindow; 
  ShowWindow(Foreground, SW_SHOWNA);  
  BringWindowToTop(Foreground);
  SetForegroundwindow(Foreground);

GetCursorPos(CurrentPos);

  If X = 1 then
  begin
  mouse_event(MOUSEEVENTF_LEFTDOWN, CurrentPos.X, CurrentPos.Y, 0, 0);
  Sleep(A);
  mouse_event(MOUSEEVENTF_LEFTUP, CurrentPos.X, CurrentPos.Y, 0, 0);
  X := 0;
  end;

  ShowWindow(Currentwindow, SW_SHOWNA);
  SetForegroundWindow(Currentwindow); 

end;

Lecz jeśli kliknę myszką poza formą i wtedy użyje skrótu klawiszowego program nie wykonuje swojej funkcji. Co zatem zrobić ewentualnie co robię źle?

Skróty klawiszowe z menu są lokalne dla aplikacji. Jak sobie wyobrażasz działanie aplikacji, kiedy w niemal każdym programie funkcjonuje skrót Ctrl+S czy Ctrl+O?
http://stackoverflow.com/questions/467152/how-do-i-hook-global-shortcuts-in-windows

Dzięki wielkie za link