[tombender]

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

Код:

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.