TDirectory.GetFiles EInvalidePointer wenn Path leer

[Kostas]

Hallo Zusammen,

wenn im Pfad keine gesuchte Dateien vorhanden sind, wird eine Exception vom Typ EInvalidePointer "Ungültige Zeigeroperation" gefeuert.
Ist mindestens eine gesuchte Datei vorhanden gibt es keine Exception.
Hat jemand eine Idee warum?

Delphi-Quellcode:

if not GetDirFilesEx(QuellPfad, '*.pdf', MyFileList, TSearchOption.soTopDirectoryOnly, false)then exit;

function GetDirFilesEx(const StartDir,
                       SearchPattern: string;
                       out MyFileList : TStringList;
                       SearchOption:TSearchOption;
                       FileNameOnly:Boolean):Boolean;
var
  LList: TStringDynArray;
  I: Integer;
  LSearchOption: TSearchOption;

begin
  result := False;

  LList := TDirectory.GetFiles(StartDir, SearchPattern, SearchOption);


  for i := 0 to Length(LList)-1 do
  begin
    if FileNameOnly
    then MyFileList.Add(ExtractFileName(LList[i]))
    else MyFileList.Add(LList[i]);
  end;

  Result := MyFileList.Count>0;

end;