Enviar Texto usando FTP

[delphi50jmb]

Hola Casimiro.
Agradesco tu respuesta. Pero no era lo que buscaba.

Lo resolvi de esta manera:

Código SQL [-]
var
I : Integer;
FileName : String;
tsMemo : TMemoryStream;

begin
   FileName := 'Comentario.Text';
   tsMemo:= TMemoryStream.Create;

   Memo1.Lines.SaveToStream(tsMemo);
   tsMemo.Position := 0;

   FTP.Put(tsMemo, FileName, False);
end;

Agradecido de todas formas.

Saludos.
Jose Miguel.