type
  punknown=^unknown;
  
  t=object
    procedure p(i:unknown);
  end;

begin
end.