1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure TForm1.btGoCountClick(Sender: TObject);
var
  i                           : Integer;
  StopIt                        : Boolean;
begin
  StopIt := false;
  if btGoCount.Caption = 'Start' then
    begin
      btGoCount.Caption := 'Stop';
      pbCount.Max := StrToInt(edCount.Text);
      pbCount.Position := 0;
      for i := 1 to StrToInt(edCount.Text) do
        begin
          btGo.Click;
          Application.ProcessMessages;
          pbCount.Position := i;
          if StopIt then
            Exit;                         //Hier will er nicht hin, also wenn ich einen Breakpoint setzte wird dieser             
                                          //ungültig...
        end;
    end
  else if btGoCount.Caption = 'Stop' then
    begin
      btGoCount.Caption := 'Start';
      StopIt := true;                      //Hier das selbe...keine ahnung warum...wenn ich alles durchdebugge 
                                           //überspringt er die zeile einfach
    end;
end;