Text- Dateien im StringGrid auflisten

[strom]

Hallo, habe hier vielleicht was für mich gefunden!
Was ist mit : "// Falls es sich um ein Verzeichnis handelt, rek. aufrufen" gemeint?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var srResult: TSearchRec;
begin
  application.ProcessMessages;
  If Stop then exit;
  if FindFirst(start+'*.*',faAnyFile,srResult)=0 Then
    begin
      while (FindNext(srResult)=0) Do
        begin
          Application.processMessages;
          if (srResult.Attr=faDirectory)
            and (srResult.name<>'.')
            and (srResult.name<>'..') Then
            begin
              // Falls es sich um ein Verzeichnis handelt, rek. aufrufen
              searchFiles(start+srResult.name+'\');
            end
          else
            begin
              // hier kannst Du dann die Dateien auslesen ...
            if (srResult.name<>'.')and (srResult.name<>'..') Then
            begin
              with StringGrid1 do // statt dem Stringgrid halt ne Stringlist oder so verwenden
                begin
                  cells[0,counter]:=srResult.name; // dateiname
                  cells[1,counter]:=inttostr(srResult.Size); // dateigröße
                  cells[2,counter]:=copy(start,length(edit1.Text)+1,100);
                  // Pfad (relativ zum Suchverzeichnis)
                  rowcount:=rowcount+1;
                end;
              inc(counter);
            end;
            end;
        end;
      FindClose(srResult);
    end
  else
    begin
      ShowMessage('Keine Dateien vorhanden');
    end;
end;
end;