Zunächst rate ich Dir den Inhalt von .Timer1Timer auseinander zu rupfen. Z.B.
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
NewCoordinates;
PaintElipsis;
end;
Wo Du das "Zurückprallen" zuordnest ist meiner Meinung nach Geschmackssache. Ich würde es in die NewCoordinates packen.
Das Initiale Zeichnen erfolgt z.B im
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
doublebuffered := true;
mx := 10;
my := 10;
r := 10;
vx := 1;
vy := 1;
timer1.enabled := false;
PaintEllepsis;
end;
Wenn Du das so oä handhabst wird es ein wenig übersichtlicher.
Gruß
K-H