type

  TPRecData = ^TRecordData;

  TRecordData = record

    cIndex: String[4];

    cQuant: String[4];

    cTMark: String[69];

    cNote: String[90];

    cSS: String[6];

--------------------------

var recData: TPRecData;

--------------------------

Создаю переменную и присваиваю её значение свойству Data.

  New(recData);

  recData^.cIndex:=cIndexRead;

  recData^.cQuant:=cQuantRead;

  recData^.cTMark:=cTMarkRead;

  recData^.cNote:=cNoteRead;

  recData^.cSS:=cSSRead;

  tvNode.Data:=recData;

--------------------------

При удалении узла или при закрытии формы отрабатывает событие OnDeletion, в котором прописано:

  Dispose(TPRecData(Node.Data));