procedure paso a paso

[Silver]

Vamos a ver, estoy diseñando un procedimiento que necesita funcionar con tiempo, es decir, necesita esperar un tiempo determinado hasta ejecutar la siguiente línea de código.

procedure MostrarTexto(Texto: String);
begin
Connect;
// que tarde 3 segundos en ejecutar el siguiente codigo
Send(Texto);
Disconnect;
end;


y en un button pondria algo así como:
MostrarTexto('hola');

Osea hacer que tarde X tiempo en leer una linea de codigo despues de haber realizado la linea anterior de codigo. ¿Me explico?

Gracias