Espera larga en bucle while

[ecfisa]

Hola mosco.

Estoy de acuerdo con Neftali, es la elección más apropiada.

Ahora, si por algún motivo necesitas "congelar" la aplicacion por x tiempo podes hacer:

Código Delphi [-]
procedure WaitMinute(Lapso: Single);
var
  t1, t2: TTime;
begin
  t1  := Time;
  while (t2-t1)*1440 <= Lapso do
    t2 := Time;
end;

Llamadas:

Código Delphi [-]
begin
   WaitMinute(1); // 1 min.
   WaitMinute(.5); // 30 seg.
   ...

Saludos.