Отправка файла через FTP.

[Andrew101095]

Отправляю файл так :

procedure TForm1.SendClick(Sender: TObject);
begin
IdFTP.Host := '***';
IdFTP.Port := 21;
IdFTP.Username := '****';
IdFTP.Password := '*****';
IdFTP.Connect;
idFTP.Put('1.txt','1.txt',false);
end;

В итоге выдает такую ошибку :

Единственно вместо ххх.хх.хх IP адресс(не мой).
Как можно исправить?

[Andrew101095]

Всё...решил проблему)))
Включил режим пассивного ftp, активный режим требует возможности подключится серверу к себе по указанному порту, т.е. обратное соединение.Вот такие дела...