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;