idftp de directorylisting sorunu

[MoSoft]

DirectoryListing çalışmıyor sorunu ne olabilir. Delphi 2007 XP kullanıyorum.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
IdFTP1.Disconnect;
IdFTP1.Host:='ftp.xxx.com';
IdFTP1.Username:=xxx;
IdFTP1.Password:=xxx;
IdFTP1.Passive:=true;
IdFTP1.Connect;
IdFTP1.List;
if IdFTP1.Connected=true then
ShowMessage('bağlandı');
ShowMessage(inttostr(IdFTP1.DirectoryListing.Count));
 for I := 0 to IdFTP1.DirectoryListing.Count-1 do
   begin
       if IdFTP1.DirectoryListing.Items[I].ItemType=ditFile then
       begin
ListBox1.Items.Add(IdFTP1.DirectoryListing.Items[i].FileName);
       end;
   end;

try
       IdFTP1.List( Listbox2.Items, '', False);
    finally
        IdFTP1.Disconnect;
end;
end;