type VBABase = class
public
	function Create(Par: tslobj; App: Application; Cre: integer);

public
	property Application read ReadApplication;
	property Parent read ReadParent;
	property Creator read ReadCreator;
	function ReadApplication();
	function ReadParent();
	function ReadCreator();
private
	[weakref]parent_: tslobj;
	[weakref]application_: Application;
	creator_: integer;

End;

// ============== 实现 ================= //
function VBABase.Create(Par: tslobj; App: Application; Cre: integer);
begin
	parent_ := Par;
	application_ := App;
	creator_ := Cre;
end;

// properties
function VBABase.ReadApplication();
begin
	return application_;
end;

function VBABase.ReadParent();
begin
	return parent_;
end;

function VBABase.ReadCreator();
begin
	return creator_;
end;