procedure P<T>();

  type
    TRecord = record
    end;

begin
end;

begin
end.