[Holy]

Попробуй так:

Код:

var
  i, MyCount: integer;
begin
  MyCount:=0;
  for i := 0 to DirectoryListBox.Count - 1 do 
    if IdFTP1.DirectoryListing.Items[i].ItemType <> ditDirectory then 
      Inc(MyCount);

  ShowMessage(IntToStr(MyCount));
end;