Funcao - delay como fazer

Usando a API Sleep:

=============================

Inclua na seção uses: Windows

// Pausa por 1 segundo

Sleep(1000);

// Pausa por 10 segundos

Sleep(10000);

Delay Real

==========

procedure Delay(msecs: Cardinal);

var

  FirstTickCount: Cardinal;

begin

  FirstTickCount := GetTickCount;

  repeat

    Application.ProcessMessages;

  until ((GetTickCount - FirstTickCount) >= msecs);

end;