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.