Отправка файла по FTP

[Nikk[UA]]

Мне нужно отправить файл с моего компьютера на юкоз сервер.

Form1.IdFTP1.Host:='nikkdb.at.ua';
Form1.IdFTP1.Username:='2nikkdb';
Form1.IdFTP1.Password:='password';

Form1.IdFTP1.Connect;
Form1.IdFTP1.ChangeDir('/DV_228/');
Form1.IdFTP1.Put('C:\report.txt', 'report.txt');
Form1.IdFTP1.Disconnect;

Пишу на delphi 7.

У меня выскакивает такая ошибка:

[Valio]

Пишет что не сервер не отвечает на запрос. Мне почемуто кажется что по любому даже для ФТП нужно было указывать порт....

[Nikk[UA]]

И с портом тоже не пашет. Порт поставил как и у FileZilla. Она работает без поблем.

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Button1.Caption:='Заливаю!';

Form1.IdFTP1.Host:='nikkdb.at.ua';
Form1.IdFTP1.Port:= 21;
Form1.IdFTP1.Username:='2nikkdb';
Form1.IdFTP1.Password:='password';

Form1.IdFTP1.Connect;

if IdFTP1.Connected then
begin
IdFTP1.Put('C:\report.txt','/DV_228/report.txt', false);
end;

Form1.Button1.Caption:='Залить!';
ShowMessage('Файл залит!');
end;

[Valio]

А так

IdFTP.Connect(True, 10000);

[Nikk[UA]]

Так же выскакивает.

[Valio]

Ну тогда вероятно чтото с логином, паролем и хостом.

[Nikk[UA]]

Да всё ок. С фаерзиллы заходит отлично!

Какие еще варианты?

[Valio]

По коду всё нормально вроде. Есть вариант попробывать подключиться к ftp.narod.ru
Этот ФТП даётся при создании почты на яндексе.

[Nikk[UA]]

Всеровно не помогло