あるいは最初からクラスにするとか
type
　　TCell = class
　　public
　　　　Value: Integer;
　　　　Prev, Next: TCell;
　　end;