Ajuda Auto-Click

Oi!

Estou tendo problemas para colocar um  auto-clik para funcionar somente dentro de um programa especifico, para assim ficar livre e fazer outras tarefas como por exemplo navegar na internet.

Já tentei os Seguintes códigos:

Código 1
           

Código:

procedure TForm1.TautoclickTimer(Sender: TObject);
var
PID : Nativeuint;
hProc: Nativeuint;
begin
 PID:= GetPidByName('hl.exe');
if PID<>0 then
begin
hProc:= OpenProcess(PROCESS_ALL_ACCESS,false,PID);
mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
end;
CloseHandle(hProc);
end;

Código 2
           

Código:

procedure TForm1.TautoclickTimer(Sender: TObject);
var
PID : Nativeuint;
hProc: Nativeuint;
begin
 PID:= GetPidByName('hl.exe');
if PID<>0 then
begin
hProc:= OpenProcess(PROCESS_ALL_ACCESS,false,PID);
hProc:= mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
hProc:= mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
end;
CloseHandle(hProc);
end;

Porém Retornol o seguinte erro

Código:

[dcc32 Error] Unit2.pas(404): E2010 Incompatible types: 'NativeUInt' and 'procedure, untyped pointer or untyped parameter'

Código 3
           

Código:

procedure TForm1.TautoclickTimer(Sender: TObject);
var
PID : Nativeuint;
hProc: Nativeuint;
begin
 PID:= GetPidByName('hl.exe');
if PID<>0 then
begin
hProc:= OpenProcess(PROCESS_ALL_ACCESS,false,PID);
mouse_event(hProc,MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
mouse_event(hProc,MOUSEEVENTF_RIGHTUP,0,0,0,0);
end;
CloseHandle(hProc);
end;

Retornol o seguinte erro

Código:

[dcc32 Error] Unit2.pas(404): E2034 Too many actual parameters

Uso Delphi XE3 e qual quer dica ou ajuda é bem vinda!