OK habs gelöst!
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Timer1.Enabled:=true;
timer1.Tag:=timer1.Tag+1;
edit2.Text:=inttostr(timer1.Tag);
Edit1.Text:=Timetostr(time);
with image1.Canvas do
begin
pen.Color:=clred;
brush.Color:=clred;
ellipse(timer1.Tag*50-5,5,timer1.Tag*50-45,45);
end;
end;
nun habe ich das problem wie ich das zählmechanismus einbauen kann, das von 1 bis 4 und zurück zählt!