liste alle FTP Daten. hatt noch kleine Fehler

[Deltachaos]

Ich habe ja ein bei DELPHI-Treff einen Code gefunden der alle Dateien auf der Festplatte recusiv Listet.
Aber ich verstehe ihn nicht wirklich und solange ich ihn nicht verstehe kan ich ihn nicht in FTP umsetzen.

Delphi-Quellcode:

procedure GetFilesInDirectory(Directory: String; const Mask: String;
                              List: TStrings;
                              WithSubDirs, ClearList: Boolean);

procedure ScanDir(const Directory: String);
var
  SR: TSearchRec; //was ist das vür ein Typ. Wass kann er. kann man ihn auch in FTP nutzen?
begin
  if FindFirst(Directory + Mask, faAnyFile and not faDirectory, SR) {Woher kommt das jatzt plötzlich. hir wird wohl   igentwetwas in diesen SearchRec geschriben} = 0 then try
    repeat
      List.Add(Directory + SR.Name) // Ok hier wird etwas was in der variable steh in die Liste geschrieben.
    until FindNext(SR) {Woher kommt das jetzt?} <> 0;
  finally
    FindClose(SR) {Und das? Dass sind dan wohl alles Befehle die Delphi schon bereitstellt ok.};
  end;

  if WithSubDirs then begin
    if FindFirst(Directory + '*.*', faAnyFile {???}, SR) = 0 then try
      repeat
        if ((SR.attr and faDirectory) = faDirectory) and  {Noch mehr ???}
           (SR.Name <> '.') and (SR.Name <> '..') then
          ScanDir(Directory + SR.Name + '\');
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  end;
end;

begin
  List.BeginUpdate;
  try
    if ClearList then
      List.Clear;
    if Directory = '' then Exit;
    if Directory[Length(Directory)] <> '\' then
      Directory := Directory + '\';
    ScanDir(Directory);
  finally
    List.EndUpdate;
  end;
end;