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