Creo que es esto lo que necesitas.
Código:
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