private { Private-Deklarationen }
    FInsertPdfDocument : TInsertPdfDocument;
    FReportList: TStringList;
    FAppDataPath: string;
    FProjectPath: string;
    FOwnFolderList: TStringList; //<==
    FTextSelection: string;
    procedure ShowCategoryPanel(Sender: TObject);
    procedure WriteBookmarkMemo;
    procedure DoTextSelectionEvent(Sender: TObject; const ATextSelection: String);
    function projectfolder : String;


    { Public-Deklarationen }
    property OwnFolderList : TStringlist read FOwnFolderList write FOwnFolderList; //<===
    property Appdatapath: String read FAppDataPath write FAppDataPath;
  end;

    if OfficerAlexMain.OwnFolderList <> nil then //<== Fehler
    begin
      if OfficerAlexMain.OwnFolderList.IndexOf(aRealName) <> -1 then
      begin
        Node.ImageIndex := 3;
        Node.SelectedIndex := 3;
      end
    end;