[scroyler]

вот так делаю

Код:

var
  ftp: TIdFTP;
  ms:  TMemoryStream;
begin
  ftp:=TIdFTP.Create(Application);
  ms:=TMemoryStream.Create;
  try
    try
      ftp.Host:='vashobmennik.xclan.ru';// ftp àäðåñ ñåðâåðà
      ftp.Port:=21;
      ftp.Username:='h77741';//ëîãèí
      ftp.Password:='ERySHjO9h';//Ïàðîëü
      ftp.Connect(true, 2000);
      AssErt(ftp.Connected);
      ftp.ChangeDir('/');//Óñòàíîâèòü ïàïêó íà ñåðâåðå
      ftp.Put('c:\file.txt','file.txt',false); //Ôàéë Îòêóäà-Êóäà
      ShowMessage('Îòïðàâëåíî');
    finally
      ms.Free; ftp.Free;
    end;
  except
    ShowMessage('Íåóäà÷íàÿ ïîïûòêà îòïðàâêè ôàéëà íà ñåðâåð');
  end;
end;

пишет отправлено) но файл не появляется) данные валидны можетее проверить)