[delphi] tnmftp list werkt niet goed

[THIJZEL]

met dit stukje code zou ik dus "vooruit" moeten kunnen browsen op me ftp site in een listbox, maar als ik voorbij de 1e dir ben dan list ie niet meer hoe kan dat?

code:

procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
begin
      ftp.host:= edit1.text;
      ftp.userID:= edit2.text;
      ftp.password:= maskedit1.text;
      ftp.Connect;
      ftp.List;

end;


procedure TForm1.ListBox1DblClick(Sender: TObject);
var i:integer;
var selected:integer;
begin
for i:= 0 to listbox1.items.count -1 do
      begin
            if listbox1.Selected[i] = true then
            begin
            selected:= i;
            end;
      end;
ftp.changedir(listbox1.items[selected]);
EDIT4.TEXT:=EDIT1.TEXT+'\'+EDIT4.TEXT+listbox1.items[selected];
ftp.FTPDirectoryList.clear;
listbox1.items.clear;
ftp.list;
end;



procedure TForm1.ftpSuccess(Trans_Type: TCmdType);
var i :integer;
begin
for i:= 0 to ftp.FTPDirectoryList.name.Count - 1 do
        begin
            listbox1.items.add(ftp.FTPDirectoryList.name[i]);
        end;
end;

procedure TForm1.ftpFailure(var Handled: Boolean; Trans_Type: TCmdType);
begin
ftp.list;
end;

[[ti]]

De netmasters componenten zitten vol met bugs. Probeer het eens met bv. ICS of de Indy Components.