Definir Um Intervalo De Tempo

[jo_user]

Pessoal, estou fazendo uma aplicação e no evento eu gostaria de colocar um timer que aguarde 5 segundo para seguir as instruções abaixo para concluir o evento. Será que é possível ???

Obrigado.

[Thales Pontes Martins]

var v : integer;
begin
  v:=GetTickCount;
  Repeat
    Application.ProcessMessages;
  Until (GetTickCount > (v+5000));
.
.
.
end;

Ou ainda

Sleep(5000);