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

[Levsha100]

Сообщение от Chudo4258

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

Вот сюда?

или как???

Смотри:
1)Кидаешь на форму компонент TTimer
2)Дважды клацаешь на нем, появляется обработчик события
3)Копируешь туда код
4)Когда надо Включаешь таймер

Timer1.Enable:=true;

[Chudo4258]

Короче эта задача о блуждающем пьянице.

Там опечатка была, вот вес код:

Var I, Cv : Integer;
    Z, P, X, X0, H, Y : Integer;
    Stop:boolean; //для остановки рисование

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

   Procedure zakras( X , Y : Integer); //закрашавать предыдущие галогки
    begin
     With Image1.canvas do
       begin
         Brush.Style:=bsSolid;
         Pen.Color:=clWhite;
         Brush.Color:=clWhite;
         Rectangle(X , Y , X+20 , Y+20);
        end;
    end;


begin
with image1.Canvas do
begin
 Stop:=false;
 Label1.Caption:='Идет алкаш!!!';
 X := Round(Width/2);
 X0 := X;
 Y := Round(Height/2);
 H := 30; //шаг
 P := 5; // =0,5
 Brush.Color:=clWhite;  //очистка
 FillRect(ClientRect);  //очистка
 Brush.Color:=clBlue;
 Ellipse(X-5,Y-5,X+20,Y+20);
 I:=0;
 Randomize;

 Repeat
  Label1.Caption:='Идет алкаш!!! '+IntToStr(I)+' раз' ;
  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-20,'\/');
  application.processmessages;
  sleep(500);
  zakras(X , Y-25);
 Until (X >= Width) Or (X <= 0) Or Stop;
 Label1.Caption:='Пришёл алкаш!!!   Вернулся в начальную точку '+IntToStr(I)+' раз.'  ;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Left:=3;
Form1.Top:=100;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Stop:=true;
end;