Como enviar um clique para outra aplicação, em Delphi

Vou mostrar aqui como enviar um clique do mouse para uma outra aplicação. Precisei disso para automatizar um processo, já o aplicativo em questão não tinha uma opção de linha de comando para já iniciar no item que eu desejava. Além disso, ele também não aceita o controle via teclado, apenas mouse.

program sendClick;

uses
  Windows, SysUtils, Classes, Controls, ExtCtrls, StdCtrls, Messages, Dialogs;

var
  WindowHandle : HWND;
  pt: TPoint;

begin
  if (paramstr(4) > '') then begin
    WindowHandle := FindWindow(nil, pchar(paramstr(4)));
      if WindowHandle = 0 then begin
      ShowMessage('Program not found.');
      halt;;
    end;
  end else
    WindowHandle :=  GetActiveWindow;

  pt.x := Round(strtoint(paramstr(2)) * (65535 / Screen.Width));
  pt.y := Round(strtoint(paramstr(3)) * (65535 / Screen.Height));

  Sleep(StrtoInt(paramstr(1)) * 1000);

  SetForegroundWindow(WindowHandle);
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, pt.x, pt.y, 0, 0);
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, pt.x, pt.y, 0, 0);
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.x, pt.y, 0, 0);
end.