类使用叫板！！！！(0分)

声明一个类(最简单的)
type
TUser = class
Connect: TDataBase;
end


在全局变量中定义
var
User: TUser;

代码段：
User := nil;
User := TUser.Create;
User.Connect := TDataBase.Create(Self);
//ShowMessage(User.Connect.DataBaseName);
User.Connect.AliasName := 'Data1';
User.Connect.DataBaseName := 'MyDataBase';
User.Connect.Connected := True;

运行与
在过程中定义User
中的运行情况有些不同，请试试

什么意思，具体一点

接受答案了.