unit findref_declaration;

interface

type
  TMyInt = 1..1000;

var
  GlobalCnt: TMyInt;

implementation

end.