[friz]

to Prame, ну и что за хрень ты людям советуешь?
to ***, ничего сложного нету, вот тебе решение (хоть и кривое но должно работать )

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  X, Y: Integer;
begin
  X := StrToIntDef(Edit1.Text, 0);
  Y := StrToIntDef(Edit2.Text, 0);

  SetCursorPos(X, Y);
  mouse_event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
  mouse_event(MOUSEEVENTF_LEFTUP,X,Y,0,0); 
  
sleep(5000) //лучше конечно delay

  X := StrToIntDef(Edit3.Text, 0);
  Y := StrToIntDef(Edit4.Text, 0);

  SetCursorPos(X, Y);
  mouse_event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
  mouse_event(MOUSEEVENTF_LEFTUP,X,Y,0,0); 

sleep(5000) //лучше конечно delay

  X := StrToIntDef(Edit4.Text, 0);
  Y := StrToIntDef(Edit5.Text, 0);

  SetCursorPos(X, Y);
  mouse_event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
  mouse_event(MOUSEEVENTF_LEFTUP,X,Y,0,0); 

end;

как зациклить думаю сам додумаешься