Form einer Parabel folgen lassen

[nachti1505]

Delphi-Quellcode:

count := -5;
OriginalLeft := Left;
OriginalTop := Top;

while count < 5 do begin
  Left := OriginalLeft + Count;
  Top := OriginalTop + (Count * Count);
  inc(Count);
end;

Ungefähr so...