como hago una pausa de 1 seg en un progrma delphi?

[JavierB]

Hola a todos. Aqui va otra opción:

var
Ahora: TDateTime;
begin
Ahora:=Time;
while Time < Ahora + EncodeTime(0,0,1,0) do
Application.ProcessMessages;

De esta forma el sistema seguirá funcionando durante la pausa. Con un segundo no es demasiado importante, pero si quieres hacer una pausa mayor te interesará, quizá, seguir utilizando otros programas.

Saludos,

---------------
Pregunta lo que ignoras y pasarás por tonto 5 minutos.
No lo preguntes y serás tonto toda la vida.