Pause i programkode

Kan du uddybe spørgsmålet, for jeg forstår det ikke.

Er ikke helt sikker på at det er det du mener:

while Timer1.Enable do
  Sleep(10); //eller Sleep(1);

var stop: boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.enabled := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.caption := 'Nu venter vi lidt';
  Timer1.enabled := true;
  Stop := true;
  Repeat
    Application.processmessages;
  Until stop = false;
  Label1.caption := 'Så er vi færdige';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Stop := False;
  Timer1.enabled := False;
end;

eller lidt mere generelt:

Var
  Stop : Boolean;

Procedure wait(const i: integer);
begin
  Stop := true;
  Form1.Timer1.interval := i;
  Form1.Timer1.enabled := true;
  Repeat
    Application.processmessages;
  Until stop = false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Stop := False;
  Timer1.enabled := False;
end;

Man kan selvfølgelig også sige
  Until Timer1.enabled = False;
Så kan Variablen Stop udelades.

Det gjorde jeg også :-) Tak for hjælpen....