关于一些消息发送的多个问题，(100分)

TSpeedButton( cp ).OnDblClick := gnDblClick;／／go是TGlobalObject;
这行是干什么的，
if not OwnedComponent.HasParent then Proc(OwnedComponent);
这个有什么用
begin
CoInitialize( 0 );
//////////////////////////////////////////////////////////////////////////////////////////
//添加类的注册 //
//////////////////////////////////////////////////////////////////////////////////////////
//*****
RegisterClasses( [TGlobalObject, TButton, TListBox, TTimer, TRadioButton, TCheckBox, TEdit, TMemo, TComboBox, TGroupBox, TDateTimePicker, TPanel, TTable, TQuery, TMenu] );
OleMessage := RegisterWindowMessage( 'OleMessage' );
go := TGlobalObject.Create( Application, true );
WinControls := TList.Create;
end;

Finalization
begin
UnRegisterClasses( [TGlobalObject, TButton, TListBox, TTimer, TRadioButton, TCheckBox, TEdit, TMemo, TComboBox, TGroupBox, TDateTimePicker, TPanel, TTable, TQuery, TMenu] );
for i := 0 to WinControls.Count - 1 do
TWinControl( WinControls.Items ).Free;
WinControls.Free;
go.Free;
CoUnInitialize;
end;
为何要这样弄一下，我看不懂，这是一个用在ＥＸＥ中的ＤＬＬ

它能构造一些自己的控件，，要不哪个高人帮看一下全程序也行，

dearmite@sina.com，谢谢

把全部程序发给我，我来看看

文件太多，不行，

请继续或结束

多人接受答案了。