[...]
type
  TArrayofStringList = packed array of TStringList;
  PArrayOfStringList = ^TArrayOfStringList; // <= hier wurde hinzugefügt

  TtSearchFiles = class(TThread)
  private
  iDirCount : Integer;
  protected
  procedure Execute; override;
  procedure GetFiles(const Directory : string; var Files : TArrayofStringList; (*type TArrayofStringList = packed array of TStringList;*) 
                     const FileMask : string = '*.*'; const SubFolders : Boolean = True);
  public
    sDir : String; // wird übergeben vom Haupt code
    FileList : PArrayofStringList; // <= hier wurde geändert
  end;
[...]