prozedur beenden

[he_rules_world]

Hey Leute wie kann ich in einer von einer Prozedur aus eine andere während diese läuft beenden?

Der code sieht vereinfacht so aus so aus:

Delphi-Quellcode:

procedure TForm1.B_StartClick(Sender: TObject);

begin
while  (Auto.Left >= -100) do
  begin
    Auto.Left:=Auto.Left-1;
  end;
end;

Es handelt sich, wie unschwer zu erkennen, um das Bild eines Autos das fahren soll.


Ich will jetzt einen Stop Button hinzufügen, dabei dachte ich mir unterbreche ich am besten die prozedur.

Ich dachte da an sowas

Delphi-Quellcode:

procedure TForm1.B_StopClick(Sender: TObject);
begin
  exit procedure TForm1.B_StartClick
end;

oder so ähnlich

Ich will nur sichergehen dass ich mich klar ausdrücke, deshalb wiederhole ich mich wahrscheinlich auch ein paar mal ^^.

Ich will also von der 2. Prozedur aus die 1. beenden geht das überhaupt, bin nämlich im Internet auf nichts darüber gestoßen?