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); WaitMinute(.5); ...
Saludos.