чтение координат из мемо

[megostudent]

вот код который читает координаты из мемо и воспроизврдит их

procedure TForm1.Button2Click(Sender: TObject);
const
  commands:array[1..2] of string = ('lclic-on','lclic-off');
var
  MCur:TStringList;
  x,y,i,j:integer;
  pt:TPoint;
  temp1,temp2:string;
begin
 MCur:=TStringList.Create;
 MCur.LoadFromFile('lol.txt');
 for i:=0 to MCur.Count-1 do begin
  for j:=1 to length(commands) do
   if MCur.Strings[i]=commands[j] then begin
    GetCursorPos(pt);
    case j of
     1: begin mouse_event(MOUSEEVENTF_LEFTDOWN,pt.x,pt.y,0,0); end;
     2: begin mouse_event(MOUSEEVENTF_LEFTUP,pt.x,pt.y,0,0); end
    end;
   end
   else begin
    if (MCur.Strings[i]<>'lclic-on') and (MCur.Strings[i]<>'lclic-off') then begin
     memo1.Lines.Add(MCur.Strings[i]+'  '+commands[j]);
     sleep(5);
     x:=StrToInt(Copy(MCur.Strings[i],0,Pos(' ',MCur.Strings[i])-1));
     y:=StrToInt(Copy(MCur.Strings[i],Pos(' ',MCur.Strings[i]),Length(IntToStr(x))+1));
     SetCursorPos(x,y);
    end;
   end;
 end;
 MCur.Free;
end;

эти коорды пробегаются очень быстро, как сделать что они пробигались например через 1 сек???

[JUDAS]

вставь в цикл Sleep(число_миллисекнуд)
например Sleep(1000); это будет приблизительно 1 секунда. Если нужно чтобы программа была живая а не зависшая то советую следующий метод

dx:=0; // integer;
while dx<20 do
begin
  sleep(50);
  Application.ProcessMessages();
  inc(dx);
end;

В таком случае, пауз будет 20 по 50 миллисекунд = 1 сек, но без затормаживание системы (можно закрыть коно или прервать процесс)