怎么把一个类的实例传给他创建的类

如何把一个类的实例传给他创建的类？
rt！

[解决办法]
??
procedure a(object: TObject);
begin
end;


a(TObject.crate);

??

[解决办法]
self即指向当前对象本身
[解决办法]
说明白一点？
NewInstance
[解决办法]
如何把一个类的实例传给他创建的类？

--------------------------

"他 "是谁? 类? 实例?
if 他==实例 then 实例创建类 请举一例
if 他==实例 then assignto