Вот для примера простой код который работает.
Код:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
FTP->Host="XXX.XXX.XXX.XXX";
FTP->Username="user";
FTP->Password="password";
FTP->Connect();
FTP->Put("C:\\1.jpg", "1.jpg", 0);
ShowMessage("Done");
}
Писал в билдере. Использовал компонент TIdFTP... Вот и всё...
