1:
2:
3:
4:
5:
6:
7:
8:

Button1.Caption := '&Stop';

repeat
if (Button1.Caption = '&Stop') and ???? then exit; //Wie könnte ich das machen
// wenn der Button wieder gedrückt wird das er auf exit springt?

until
Button1.Caption := 'S&tart';					

1:
2:
3:
4:
5:
6:

var
  fStop: Boolean = FALSE;
...

// ButtonClick:
  fStop := not fStop					

1:
2:
3:
4:
5:

repeat
  Application.ProcessMessages;
  ...;
  ...;
until fStop = TRUE;