O código a seguir está sintaticamente correto e implementa a declaração de um array duplamente conectado.

type

PSimpleNode = ^TSimpleNode;

TSimpleNode = record

Next : PSimpleNode;

Prior : PSimpleNode;

Data : SomeDataType;

end;