1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TFormMain.GetFolders(ScanDir: String);
var
   ListFolders: TStringList;
   xFor: Integer;
begin
     ListFolders := TStringList.Create;
     ListFolders.Sorted := true;

     try
        IdFTP.ChangeDir(ScanDir);
        RzComboBoxSyncFTPFolders.Items.Add(ScanDir);
        IdFTP.List('*', true);

        for xFor := 0 to IdFTP.DirectoryListing.Count - 1 do begin
            if IdFTP.DirectoryListing[xFor].ItemType = ditDirectory then begin
               if (IdFTP.DirectoryListing[xFor].FileName <> '.') and (IdFTP.DirectoryListing[xFor].FileName <> '..') then begin
                  if ScanDir[Length(ScanDir)] = '/' then
                     ListFolders.Add(ScanDir + IdFTP.DirectoryListing[xFor].FileName)
                  else
                     ListFolders.Add(ScanDir + '/' + IdFTP.DirectoryListing[xFor].FileName);
               end;
            end;
        end;

        for xFor := 0 to ListFolders.Count - 1 do
            GetFolders(ListFolders.Strings[xFor]);

     finally
        ListFolders.Free;
     end;
end;