Problemas com TidFTP indy 10

procedure TFrmFTP.ShowDir;
var
Item: TIdFtpListItems;
X: integer;
begin
FTP.List(Nil);
Item := FTP.DirectoryListing;
for X := 0 to Item.Count -1 do
if (Item.Items[X].ItemType = ditDirectory) then
begin
lbDirectory.Items.Add(Item.Items[X].FileName);
end;
end;
end;

pq ele retorna 0 na listagem?

com o codigo:
FTP.List(lbDirectory,´´,False);
funciona, so q eu preciso listar apenas os diretorios..

flw