Вопрос # 5 998: …остои FTP клиент вот код. Он прекрасна коннектится к FTP серверу но н… (Работа с сетями и протоколами)

Привет
Ребята Я делаю простои FTP клиент вот код. Он прекрасна коннектится к FTP серверу но не смог вывести FTP папку в RzShellList1. Пожалуйста доскажите как это сделать

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Приложение:

unit Unit2;
interface
uses
Windows, Messages, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls,
Menus, SysUtils, Classes, IdIntercept, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, IdAntiFreezeBase, IdAntiFreeze, IdLogBase, IdLogDebug, IdGlobal,
IdLogEvent, IdFTPCommon, IdFTPList, FileCtrl, IdExplicitTLSClientServerBase, RzListVw, RzShellCtrls,
Unit1;
type
TForm2 = class(TForm)
RzShellList1: TRzShellList;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
CheckBox1: TCheckBox;
Button1: TButton;
FTP: TIdFTP;
Button2: TButton;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
RzShellList1.Clear;
FTP.Host:=Edit1.Text;
FTP.Port:=StrToInt(Edit2.Text);
FTP.Username:=Edit3.Text;
FTP.Password:=Edit4.Text;
FTP.Passive:=CheckBox1.Checked;
FTP.Connect;
Button1.Enabled:=False;
Button2.Enabled:=True;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
FTP.Quit;
Button1.Enabled:=True;
Button2.Enabled:=False;
end;
end.