[Mazafucker]

Код:

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
idftp1.Host:=Edit1.Text;
idftp1.Port:=21;
idftp1.Username:=Edit2.Text;
idftp1.Password:=Edit3.Text;
idftp1.Connect(true,5000);
idftp1.ChangeDir('/httpdocs/');
idftp1.Put('c:\abs.jpg','abs.jpg',false);
end;

procedure TForm1.IdFTP1AfterClientLogin(Sender: TObject);
begin
RichEdit5.Text:='>>>>Login Successfully<<<<';
end;

Компилируется нормально, но при нажатие на кнопку вылетает ошибка:

Project1.exe raised exception class EIdProtocolReplyError with message 'Server cannot accept argument.'. Process stopped.

=============================

Проблема решилась переходом в пассивный режим.