1:
2:
3:

reconnect; //procedure die eine bat ausführt
sleep(strtoint(form2.Edit1.text)); //hier soll er eigentlich 2000ms (=20s), macht er aber nich
sammeln; //procedure wird ausgeführt die verschiedene buttons in einer anderen form drückt					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure tform3.formsammel;
var
int: integer;
begin
sammeln;
label1.Caption:='1';
sammeln;
label1.Caption:='2';
sammeln;
label1.Caption:='3';
reconnect;
sleep(strtoint(form2.Edit1.text));
sammeln;
int:=strtoint(label1.Caption);
int:=int+1;
label1.caption:=inttostr(int);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm3.SammelManager;
var
  int: integer;
begin
  sammeln;
   label1.Caption:='1';
  sammeln;
   label1.Caption:='2';
  sammeln;
   label1.Caption:='3';
  reconnect;
   Delay(22000);
  Application.Processmessages;
  sammeln;
   int:=strtoint(label1.Caption);
   int:=int+1;
   label1.caption:=inttostr(int);
end;					

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

procedure TForm3.SammelManager;
var
  int, l: integer;

begin
  for l := 1 to 3 do
  begin
    sammeln;
    label1.Caption := IntToStr(l);
    Application.Processmessages; // falls in >sammeln< nix drinne ist was appl. procmess. aufruft sieht du sonst keine 
  end;                           // änderung von label1.Caption
  
  reconnect;
  for l := 1 to 22 do // 22 sekunden warten
  begin
    Sleep(1000); // "programm schläft" -> CPU Zeit wird anderen Programmen gegeben
    Application.Processmessages; // programm arbeitet windows botschaften ab -> Es zeigt Windows das es noch lebt
  end;

  sammeln;
  int := StrToInt(label1.Caption);
  Inc(int); // "schöner" als int := int + 1;
  label1.caption := IntToStr(int);
end;