Движущаяся кортанка в Delphi

[Chudo4258]

Для задержки картинки использую

  .........
  application.processmessages;
  sleep(200);
  .........

Но в этом случае картинка никогда не останавливается.
Как мне ее остановить?

[hoza_syl]

А можно полный код?? А то ни хрина не понятно

[Chudo4258]

Вот код на Button1, он рисует то что мне надо.

Randomize;
 p:=false;
 Repeat
  Cv:= Random(6500000000);
  Brush.Color:=Cv;
  Pen.Color:=Cv;
  Z := Random(10);

  If Z >= P Then X := X + H
            Else X := X - H;

  //сколько раз вернулся в нач. положение
  If X = X0 Then I := I + 1;

  Ellipse(X,Y,X+15,Y+15);
  Brush.Color:=ClWhite;
  Pen.Color:=ClWhite;
  TextOut(X,Y-15,'\/');
  application.processmessages;
  sleep(200);  
 Until p;
 
end;

А теперь нужен обработчик кнопки Button2, при нажатии на которую пекращается рисование, но чтобы form1 не закрывалась и нарисованный рисунок сохранился.

[Sazary]

Если правильно понял, то, вроде, достаточно p присвоить true. Естественно, p должна быть глобальной.
Ведь цикл продолжается пока p = false.

[Chudo4258]

Ага, спасибо, помог!!!

[Levsha100]

Могу посоветовать делать анимацию в таймере(TTimer).

[Chudo4258]

Не, спасибо. Я уже так сделал, да и на мой взгляд так проще.
Ну если есть желание можешь переделать эту прогу через таймер, я хоть посмотрю как это делается, а то я неразу не писал движущую картинку через таймер.

[Levsha100]

Cv:= Random(6500000000);
  Brush.Color:=Cv;
  Pen.Color:=Cv;
  Z := Random(10);

  If Z >= P Then X := X + H
            Else X := X - H;

  //сколько раз вернулся в нач. положение
  If X = X0 Then I := I + 1;

  Ellipse(X,Y,X+15,Y+15);
  Brush.Color:=ClWhite;
  Pen.Color:=ClWhite;
  TextOut(X,Y-15,'\/');
  application.processmessages;

Так это все засунь в таймер и все

[Chudo4258]

Как? Куда?
Я не разу не делал так, даже не имею понятия.

Вот сюда?

procedure TForm1.Timer1Timer(Sender: TObject);

или как???

[DeKot]

p:=false;
 ...
  Z := Random(10);

  If Z >= P Then X := X + H

А как согласуется выражение If Z >= P ?
р вроде типа Boolean, а Z по рандому должно быть типа integer.
Или я чего то не въезжаю?