[[Caral]]

Hola
Muchas Gracias Seoane.
Lo intente de todas las maneras y no me salia, me faltaba poner un parametro, quedo asi:

Código Delphi [-]
 Envio:= TEnvio.Create(Filename, txtDestino.Text +ExtractFileName(Filename), txtHost.Text, '2000');

Gracias
Saludos