Работа с циклом.

[glebast]

Доброго времени суток.
Вот мне надо сделать цикл:
<Цикл> пока не нажата button2/

Я писал так:

procedure TForm1.Button1Click(Sender: TObject);
begin

setcursorpos (150,450);

begin
repeat

setcursorpos (150,450);
mouse_event(mouseeventf_leftdown,0,0,0,0);
sleep(10);
mouse_event(mouseeventf_leftup,0,0,0,0);
sleep(10000);

setcursorpos (150,550);
mouse_event(mouseeventf_leftdown,0,0,0,0);
sleep(10);
mouse_event(mouseeventf_leftup,0,0,0,0);
sleep(10000);
until button2.Click=true;

Но так выдает ошибку: [Error] Unit1.pas(40): Incompatible types

Помогите пожалуйста. Заранее благодарен.

[ByAlex]

Пробуй так - при нажатии кнопки 2 меняй состояние какой-либо переменной на true, и в том цикле постоянно проверяй переменную кнопки 2 с помощью application.processmessages;

while not Chech do
begin
   ...
   ...
   application.processmessages;
end;