Как усилить скорость кликанья?

[VintProg]

procedure ALL_S;
var
 i : integer;
 cl : tcolor;


begin
    Form1.Shape1.Brush.Color :=  GetPixel(HC,ps.X,ps.y);
 Form1.Edit2.Text := IntToStr(GetPixel(HC,ps.X,ps.y));

if  GetKeyState($4D) < 0 then
    Form1.Timer1.Enabled := false;

  ps.X := 244;
  ps.y := 258;
  Mouse.CursorPos := ps;
  mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
  ps.y := 215;

  for i:=1 to 6 do
      begin
        ps.X := 725;
        ps.y := ps.y + 60;
        Mouse.CursorPos := ps;

        cl := GetPixel(HC,ps.X,ps.y);
        //or (cl = 2765363) upgrade


        if (cl = 2770543) or (cl = 10792369) then
           begin
             beep;

              mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
              application.ProcessMessages;
              mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
              application.ProcessMessages;
              sleep(25);
              {ps.X := 830;
              ps.y := 615;
              Mouse.CursorPos := ps;}
              mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
              application.ProcessMessages;
              mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
            end;


      end;

end;

[Stilet]

sleep(25); убери )))))))
Или сделай в нем число поменьше

[Alex Cones]

Да и Application.Processmessages в половине случаев можно убрать - еще пару секунд сэкономить.

[raxp]

сделай просто в таймере с флагом останова и перезапуска, без слипов и processmessages/

[chertovich]

В панеле упр. установи скорость клика меньше и все)) шутка разумеетс я