Tach und willkommen im Forum
Delphi-Quellcode:
procedure TForm1.losfahrenClick(Sender: TObject);
var
streckev:integer;
begin
streckev := StrToInt(strecke.Text);
repeat
autobild.Left := autobild.Left + 1;
until autobild.Left = streckev;
end;
end.
Hinter jede Anweisung muss ein Semikolon. Dann geht auch schon alles. Ausserdem müsstest du in die Schleife vermutlich noch ein Application.ProcessMessages() packen, damit das kompiliert. Und weil man dann gar nichts sieht, weil das Bild sofort weg ist, müsste man noch ein Sleep() mit einbauen.
Toll, roter Kasten. Ich poste trotzdem mal, obwohl Forlan vermutlich nicht ganz unrecht hat. Auch der Timer wäre hier auf jedenfall vorzuziehen.
HTH