Скопируем папку (+подпапки) на FTP сервер с помощью TIDFTP

procedure ftp_go(f:string);
var IDFTP: TIDFTP;
begin
idftp:=TIDFtp.create(IDFTP);
idftp.host:='ХХХороший_Программер.tj';
idftp.Username:='prof';
idftp.password:='ты_нашол_мой_пароль_XD';
idftp.Connect;
if idftp.Connected then
begin
idftp.ChangeDir('/WWW/public_xxx/');
sleep(77);
idftp.Put(f,extractfilename(f));
end;
sleep(777);
idftp.Disconnect;
finally
idftp.free;
end;
end;