fpc/tests/webtbs/tw18620.pp

program tw18620;
{$mode Delphi}

{ in delphi mode ^T in the var block of class/record/object should not create
  a forward definition which must be resolved after the type section end      }

type 
  C = class
    type 
      T = integer;
    var 
      V: ^T;
  end;

begin
end.