[lmikle]

Потому что кто-то не знает что такое составвной оператор и зачем вообще нужны эти странные слова begin и end:

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
var x,y: word;
begin
  if Label1.Caption <> '6684876' then
    begin
      x := 951 ;
      y := 862 ;
      SetCursorPos(x, y);
      mouse_event(MOUSEEVENTF_LEFTDOWN,0, 0,  0, 0);
      mouse_event(MOUSEEVENTF_LEFTUP,0, 0, 0, 0);
    end;
end;