Form einer Parabel folgen lassen

[Khabarakh]

Da hast du aber einiges in meiner Formel verdreht .
Ich habe mal Struktur und Formatierung verändert, so funktioniert es bei mir:

Delphi-Quellcode:

const
  DestX = 100;
  DestY = 100;

[...]

procedure TSplashScreenForm.FormActivate(Sender: TObject);
begin
  //Variablen vordefinieren
  Left_alt          := Left;
  Top_alt           := Top;
  count             := 1;
  a := (DestY - Top_alt) / Sqr(DestX - Left_alt);
end;

procedure TSplashScreenForm.Timer_BewegungTimer(Sender: TObject);
begin
  If Left <> DestX then
  begin
    Left := Left_alt + Round(Count / 10.0 * (DestX - Left_alt));
    Top := Top_alt + Round(a * Sqr(Left - Left_alt));

    inc(count);
  end
  else
    TimerBewegung.Enabled  := false;
end;