RosettaCodeData/Task/Pointers-and-references/Delphi/pointers-and-references-5.pas

type
  pFoo = ^tFoo; { allowed despite tFoo not yet being defined }
  tFoo = record
           value1, value2: integer;
         end;