Delphi XE2中的命名空间

我有两个bpl包：Core和Business,由一个应用程序使用.
Core.bpl包含单元User.pas,其中包含TUser类. Core.bpl中的TUser只有两个基本字段：Login和Password.
我想在Business包中使用新字段扩展TUser类：UserName.我想将业务部门命名为基本单位：User.pas.

因此,我在Business.bpl中创建了一个新的User.pas单元,并放置了从Core.bpl扩展TUser的TUser类.
现在我需要从Business.bpl中分离Core.bpl和TUser中的TUser.我需要在这里使用“名称空间的力量”:)

我已经阅读了Embarcadero doc page.他们说可以为包命名设置默认命名空间,例如Base.Core.
我将我的包命名为Base.Core.bpl和Extra.Business.bpl.编译后的文件就是这样命名的.
但是它们中的所有单元仍然按照以前的名称命名：User.pas – > User.dcu.

现在我在模块User.pas中有两个类TUser：一个在Base.Core.bpl包中,另一个在包Extra.Business.bpl中.
User.pas in Extra看起来像

unit User;
interface
uses
  Base.User;
type
  TUser = class(Base.User.TUser)
  end;

但是当我想编译它时,我有一个窗口：“删除用户.单位用户在必需的包中找到.”

我有什么办法从Base.User.TUser继承新的TUser,例如它可以在Java中？

附：为了以防万一,我使用Delphi XE2 IDE.

program MyCompany.Programs.MyProgram;

uses
  MyUnit in 'MyUnit.pas';

begin
end.

unit MyUnit;

interface

implementation

end.