La Web del Programador: Comunidad de Programadores
 
    Pregunta:  37097 - DETENER APLICACION DURANTE UNOS SEGUNDOS
Autor:  nicolas paez
Necesito pausar mi aplicacion durante x segundos.
En otros lenguajes utilizaba la funcion delay (x), pero en Delphi no tengo idea. Probé con el delay, pero no funciona y en la ayudal de Delphi no existe.
Gracias.

  Respuesta:  Daniel Serrano
Hola te recomiendo que utilizes la función

Sleep(1000)

eso equivale a un segundo si quieres mas pues multiplicalo por la cantidad de segundos que quieras. Suerte!

  Respuesta:  Javier Navarro
Puedes usar el componente TTimer que se encuentra en la pestaña de System, en las propiedades lo dejas en Enabled := False y cuando quieras que empiece a contar el tiempo de espera lo pones enabled := True y en Interval = 1000 que es el equivalente a 1 segundo. Necesitas declarar una variable de tipo Integer (Sec) para que cuente 1 por cada segundo que transcurra:

procedure TForm1.Timer1Timer(Sender: TObject);
var
Sec : Integer;
begin
Sec := Sec + 1;
Label1.Caption := IntToStr(Sec);
end;

Este código está en el evento OnTimer y por cada segundo que transcurra lo va a desplegar en el Label1. Ya validaras en tu programa como manipulas la variable Sec. Espero te sirva