[[Lepe]]

Creo que es esto lo que necesitas.

 type TCadena=String[255];

  type TEnCD=record // el regisro asociado a cada nodo del TTreeview
    Titulo,
    Categoria,
    RutaEnCD,
    Comentario  :Tcadena;
  end;
  type TpEnCD=^TEnCD;
// TpEnCD es un tipo de datos que será un puntero al registro TEnCD


var pn:TpEnCD;
begin
 try
  begin
    new(pn); // creamos el espacio en memoria
    pn^.Titulo:=edit1.text;
    pn^.RutaEnCD:=edit2.text
    pn^.Comentario:=richedit1.text;
    pn^.Categoria:='CD sin categorias';
    data := pn;

// y para recuperarlo :
    pn := TpEnCD(Data);

// o bien 
    Showmessage(TpEnCD(Data)^.Titulo)


// para liberar de memoria:
   dispose (TpEnCD(Data));

Saludos