FTP клиент. помогите

[serg-ph]

Я пишу ftp клиент на компонентах indy IdTCPClient, IdTCPServer.
Вопрос след. при переводе сервера в пассивный режим я получаю от сервера IP и порт. Подскажите как получить присланный порт и присвоить переменой IdTCPServer??

procedure TForm1.ListClick(Sender: TObject);

begin
    Memo2.Clear;
    if TextMode.Checked then
         IdTCPClient1.SendCmd('TYPE A',200)
    else
          IdTCPClient1.SendCmd('TYPE I',200);
    Memo1.Lines.Add(IdTCPClient1.LastCmdResult.TextCode +
    IdTCPClient1.LastCmdResult.Text.Text);
    IdTCPClient1.SendCmd('PASV',227);

[Квэнди]

Я пишу ftp клиент на компонентах indy IdTCPClient, IdTCPServer.

с какой целью выбран столь странный способ ?

[serg-ph]

Подскажите как сделать?

[serg-ph]

Сообщение от Квэнди

с какой целью выбран столь странный способ ?

Задание такое использовать эти компоненты.

[Квэнди]

Лучше для общения между клиентом и сервером использовать не sendcmd а writeXXX и readXXX в этом случае понятие прочитать полученный текст не станет проблемой.