{ %FAIL } program tgeneric83; {$mode delphi} type TTest = record end; const Test: ^TTest = Nil; begin end.