procedure TfrmMain.DisplayFTP;
var
 i, c : Integer;
 s : String;
begin
 lbDirectory.Items.Clear;
 FTP.List(lbDirectory.Items, '', false);

 edFolder.Text := FTP.RetrieveCurrentDir;

 tvFolders.Items.Clear;
 lvFiles.Items.Clear;

 for c := 0 to lbDirectory.Items.Count -1 do
   begin
     s := lbDirectory.Items[c];
     i := FTP.Size(s);
     if i = -1 then
       begin
       // Directory
         tvFolders.Items.Add(nil, s);
       end
     else
       begin
       // File
         lvFiles.Items.Add.Caption := s;
       end;
   end;
 SetControls;
end;

case IdFTP.DirectoryListing.Items[i].ItemType of
 ditDirectory: .. директория ..
 ditFile: .. файл ..
end;