Mep Sites: Dicas de Delphi - Aguardar determinado número de segundos

Defina e utilize a seguinte função:

procedure Perai(Tempo: Word);
var
x1: Double;
begin
x1:= now;
repeat until ((now-x1)*86400) > Tempo;
end;

Chame-a assim, por exemplo:

Perai(5); // para aguardar 5 segundos

Durante o tempo aguardado, a aplicação estará inacessível.