Hallo, herzlich willkommen.
Dein Code ist ja schrecklich formatiert.
Der Fehler liegt darun, dass du im ersten Schritt ein
LineTo aufrufst, ohne davor an die Startposition "gesprungen" zu sein.
Lösen kannst du das folgendermaßen:
Delphi-Quellcode:
procedure TSimu.ButtonStartClick(Sender: TObject);
begin
bewegung:=true;
Image1.Canvas.MoveTo(150 + Round(i), 324 - Round(y_wert)); // Startposition setzen
starten;
end;
Viel Erfolg.