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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

unit UnitTimertest; 

interface 

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, ExtCtrls, StdCtrls; 

type 
  TTimertest = class(TForm) 
    Timer1: TTimer; 
    Taster: TButton; 
    procedure Timer1Timer(Sender: TObject); 
    procedure TasterClick(Sender: TObject); 

  private 
    { Private-Deklarationen } 
  public 
    { Public-Deklarationen } 
  end; 

var 
  Timertest: TTimertest; 
  Timerinterrupt : boolean; 
  breakpoint : integer; 

implementation 
label Schleife,over; 
{$R *.dfm} 

procedure TTimertest.Timer1Timer(Sender: TObject); 
begin 
  Timerinterrupt := true; 
end; 

procedure TTimertest.TasterClick(Sender: TObject); 
begin 
  Timerinterrupt := false; 
  Timer1.Enabled := true; 
  while Timerinterrupt do; 
end; 

end.					

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  While Voraussetzung=True do
  begin
    //z.B
    Listbox1.Add('Hallo');
  end;
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  Timer1.Enabled := true;
  StopLoop := false;
  i := 0;
  while not StopLoop do
  begin
    inc(i);
    Label1.Caption := IntToStr(i);
    Application.ProcessMessages; //gib dem Rechner die Chanche was naderes zumachen als deine Schleife
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  StopLoop := true;
end;