Передача файлов по FTP

 IdFTP1->Host = "хост фтп"; 
   IdFTP1->Username = "Логин";
   IdFTP1->Password = "Пароль";   
   IdFTP1->Connect(); 
   IdFTP1->Put("C:\\Text.txt", "MyFile/Text.txt", false);

 IdFTP1->Passive=false;

 IdFTP1->Passive=true;

    FIdFTP->Username= FData.UserName;
    FIdFTP->Password= FData.Password;
    FIdFTP->Host= FData.Host;
    FIdFTP->Port= FData.Port;
    FIdFTP->Passive= true;
    FIdFTP->TransferType= ftBinary;
 
    FIdFTP->ReadTimeout= 15000;
    FIdFTP->ConnectTimeout= 15000;
 
     //  ...
 
    std::auto_ptr<TFileStream> FS(new TFileStream(From,fmOpenRead));
 
    FIdFTP->Put(FS.get(),To);

FIdFTP->Username= FData.UserName;
    FIdFTP->Password= FData.Password;
    FIdFTP->Host= FData.Host;
    FIdFTP->Port= FData.Port;
    FIdFTP->Passive= true;
    FIdFTP->TransferType= ftBinary;
 
    FIdFTP->ReadTimeout= 15000;
    FIdFTP->ConnectTimeout= 15000;
 
     //  ...
 
    std::auto_ptr<TFileStream> FS(new TFileStream(From,fmOpenRead));
 
    FIdFTP->Put(FS.get(),To);

String textfile="C:\\Лог.txt";
TFileStream *bu= new TFileStream(textfile, fmShareDenyNone);
bu->Position=soFromBeginning;
IdFTP1->Put(bu->FileName, "/каталог1/каталог2", false);
delete bu;

//.........
IdFTP1->Put("C:\\text.txt", "/Obmen", false);