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

[delphi.com.ar]

Puedes utilizar la WinApi Sleep, que es de muy fácil implementación:

procedure MostrarTexto(Texto: String);
begin
  Connect;
  Sleep(3000); {Espera 3''}
  Send(Texto);
  Sleep(1000); {Espera 1''}
  Disconnect;
end;

Saludos!