Canvas.Ellipse mit Timer parabelförmig "fliegen" lassen

[Alex.G]

Hallo,

ich programmiere zur Zeit ein kleines Panzerspiel.
Mit folgendem Code bewegt sie sich die Kugel etwa im 45° Winkel hoch und beim Erreichen der Hälfte der Breite direkt im 45° Winkel wieder runter.

Delphi-Quellcode:

  
if Kugel.x >= (iFeld.Width div 2) then
    Kugel.y := Kugel.y + 1
else
    Kugel.y := Kugel.y - 1;

(iFeld = TImage)

Wie kann ich die Kugel nun parabelförmig "fliegen" lassen?

Mfg