一个关于DLL编写的有关问题。呀！

一个关于DLL编写的问题。急呀！！！
想在DLL中创建一个Tcp Clientsocket。
如何定义他的一些回调函数。例如在DLL定义了一个这样的函数：
procedure ClientSocketConnect(Sender: TObject; Socket: TCustomWinSocket); 
begin
 doEvent;
end;

但这样付值，
socket.onConnect := ClientSocketConnect;
编辑通不过，要怎样写才行？ 



[解决办法]
帮up
[解决办法]
这是事件，不是回调

事件必须是类的函数，用全局的不行吧？

要是回调才可以用全局的


[解决办法]
type
TEventObj = TObject
public
class procedure ClientSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
end;

class procedure TEventObj.ClientSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
doEvent; 
end;



socket.onConnect := TEventObj.ClientSocketConnect;