Lista podwieszana w Pascalu

Jak można zapisać listę jednokierunkową, która będzie zawierać pierwsze elementy podwieszonych list jednokierunkowych?

PNode = ^TNode;
TNode = record Next:PNode; Value:MyDataType; end;
PNodeList = ^TNodeList;
TNodeList = record Next:PNodeList; Head:PNode; end;