Delphi-PRAXiS - Billiges Autorennen - Automatische Bewegung?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Billiges Autorennen - Automatische Bewegung? (https://www.delphipraxis.net/90992-billiges-autorennen-automatische-bewegung.html)

Billiges Autorennen - Automatische Bewegung?

hallo

bin grad dabei ein Autorennen zu programmieren was sehr billig ist. Prog ist Delphi 3.
Nun hab ich das soweit das per Buttonklick die Dinger losgehen allerdings nur beim dauerklicken und die vorgegebenen Werte. Wie kann man das machen das das Zufällig läuft und ohne dauerklicken auf den Button?

Code:

Delphi-Quellcode:

			unit Unit1;

 interface usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, ExtCtrls; 

typeTForm1 = class(TForm)

Image2: 

TImage;

Image1: 

TImage;

Shape1: TShape;

Shape2: TShape;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Label1: TLabel;

Edit2: TEdit;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private{ Private-Deklarationen }

public{ Public-Deklarationen }

end; 

varForm1: TForm1; 

implementation {$R *.DFM} 

procedure bewegen (var x,y:integer);

beginx:=x+1;

form1.Image1.left:=x;

end;

procedure bewegene (var a,b:integer);

begina:=a+1;

form1.Image2.left:=a;

end; 

procedure TForm1.Button1Click(Sender: TObject);

var x,y,i,delay,a,b:integer;

 begin

 x:=Image1.Left;

 y:=Image1.top;

 for i:=1 to 20 do 

 bewegen(x,y);

 delay:=(1);

 a:=Image2.Left;

 b:=Image2.top;

 for i:=1 to 19 do

 bewegene(a,b);

 delay:=(1); 

 end; 

 procedure TForm1.Button2Click(Sender: TObject);

 begin

 close;

 end; 

end.