在一个Unit里如何指定一个ClientSocket的OnError和OnConnect的事件？

Question

在一个Unit里如何指定一个ClientSocket(不是控件的那种）的OnError和OnConnect的事件？它提示好象必须放在一个对象里的。
   顺便问一下，在两个RadioGroup中如何使在各个RadioGroup里的RadioButton互不干扰。

Answer 1

示范如下：
type
  TMyEventObject=class(TComponent);
    procedure ClientSocketOnError(...);
    procedure ClientSocketOnConnect(...);
  end;procedure TMyEventObject.ClientSocketOnError(..);
begin
  ...
end;  
procedure TMyEventObject.ClientSocketOnConnect(..);
begin
  ...
end;  procedure APROC(..);
var
  AClientSocket:TClientSocket;
  MyEventObject:TMyEventObject;
begin
  MyEventObject:=TMyEventObject.Create(..);
  AClientSocket:=TClientSocket.Create(..);
  AClientSocket.OnError:=MyEventObject.ClientSocketOnError;
  AClientSocket.OnConnect:=MyEventObject.ClientSocketOnConnect;  
  ......
  AClientSocket.Free;
  MyEventObject.Free;
 
end;