[semen0000]

Добрый день, нужно написать ФТП клиент который может скачать файл с сервера, при этом не используя готовых компонентов(По типу IdFTP).
Столкнулся сразу же с проблемой, как получить ЛИСТ ?
И не могу понять логику получения файла с сервера.
Пока написал совсем немного:

Код:

procedure TForm1.clntsckt1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
mmo1.Lines.Add(clntsckt1.Socket.ReceiveText());
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
clntsckt1.Host:=edt1.Text;
clntsckt1.Port:=21;
clntsckt1.Open;
end;


procedure TForm1.btn2Click(Sender: TObject);
begin
clntsckt1.Socket.SendText('USER '+ edt2.Text + #13#10);
clntsckt1.Socket.SendText('PASS '+ edt3.Text + #13#10);
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
 clntsckt1.Socket.SendText('CWD '+ '\' + #13#10);
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
  portA := Random(179);
  portB := IntToStr(portA);
  clntsckt1.Socket.SendText('PORT '+ '127,0,0,1,8,'+ portB + #13#10);
  clntsckt1.Socket.SendText('LIST'+ #13#10);
end;

procedure TForm1.btn5Click(Sender: TObject);
begin
  clntsckt1.Socket.SendText('QUIT'+ #13#10);
end;