[Assistant]

вот самый простой пример, текст вводится в Memo1 и сохраняется в файл test.txt и заливается на сервер в папку /disc0_1/, файл test.txt:

Код:

begin
  IdFTP1.Host := '192.168.200.254';
  IdFTP1.Port := 21;
  IdFTP1.Username := 'admin';
  IdFTP1.Password := '******';
  IdFTP1.Connect;
  Memo1.Lines.SaveToFile('test.txt');

{  IdFTP1.ChangeDir('/disc0_1'); // переход в директорию disc0_1
  IdFTP1.Put('test.txt','test.txt',false); // запись test.txt в директорию disc0_1}

  IdFTP1.Put('test.txt','/disc0_1/test.txt',false); // false - не дописывать файл, а создавать новый. true - дописать в существующий.
  IdFTP1.Disconnect;
end;

P.S.: команда Put так же может работать и с TStream