procedure TRightsForm.FormCreate(Sender: TObject);
    var f: TResourceStream;
    begin
      mode := 1;
    // загружаем данные о правилах из ресурса.
      f := TResourceStream.create(Hinstance, 'rigths',  RT_RCDATA));
      try
        LoadFromStream(f);
      finally
        f.free;
      end;}
    {$IFDEF isadmin}
      RightsView.PopupMenu := PopupMenu1;
    {$ENDIF
    end;

procedure TRightsForm.LoadFromStream(const T: Tstream; parent: Ttreenode = nil; count: word = 0);
var x, y: integer;
  n: Ttreenode;

  function loadnode: word;
  var s, s1: string;
    len: byte;
    dt: TrightData;
  begin
    t.read(len, 1); if len > 1 then begin setlength(s, len); t.read(s[1], len); end;
    t.read(len, 1); if len > 1 then begin setlength(s1, len); t.read(s1[1], len); end;
    t.read(result, 2);
    if parent = nil then n := RightsView.Items.AddFirst(nil, s) else
      n := RightsView.Items.AddChild(parent, s);
    dt := TrightData.Create(s1);
    if dt.IsNull then n.ImageIndex := 2 else n.ImageIndex := abs(mode - 1);
    n.SelectedIndex := n.ImageIndex;
    n.Data := dt;
  end;

begin
  RightsView.Items.BeginUpdate;
  if parent = nil then begin
    repeat
      y := loadnode; if y > 0 then LoadFromStream(T, n, y);
    until t.Position >= t.Size;
  end else
  begin
    for x := 0 to count - 1 do begin y := loadnode; if y > 0 then LoadFromStream(T, n, y); end;
  end;
  RightsView.Items.EndUpdate;
end;