procedure TForm1.ShowDir(Path: string);
var
 List: TStringList;
begin
 List := TStringList.Create;
 try
   idFTP1.ChangeDir(Path);
   IdFTP1.TransferType := ftASCII;
   StatusBar1.Panels.Items[1].Text := Form1.idFTP1.RetrieveCurrentDir;
   DirectoryListBox.Items.Clear;
   IdFTP1.List(List);
   DirectoryListBox.Items.Assign(List);
   if DirectoryListBox.Items.Count > 0 then
       if AnsiPos('total', DirectoryListBox.Items[0]) > 0 then DirectoryListBox.Items.Delete(0);
 finally
       List.Free;
 end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if IdFTP1.Connected then
       try
         IdFTP1.Quit;
       finally
             DirectoryListBox.Items.Clear;
             Path := '/';
       end
   else with IdFTP1 do
         try
           Username := Edit2.Text;
           Password := Edit3.Text;
           Host := Edit1.Text;
           Connect;
           ShowDir('/');
         finally
   end;
end;

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