1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

type 
  TTSSocketClass = class(TClientSocket) 
  private 
    FOnConnect: TSocketNotifyEvent; 
    procedure OnConnectProc(SocketNotifyEvent: TSocketNotifyEvent); 
  public 
    constructor Create(AOwner: TComponent); override; 
  published 
    property OnConnect: TSocketNotifyEvent read FOnConnect write FOnConnect; 
  end; 

implementation 

constructor TTSSocketClass.Create(AOwner: TComponent); 
begin 
  inherited; 
  inherited OnConnect := OnConnectProc; 
end; 

procedure TTSSocketClass.OnConnectProc(Sender: TObject); 
begin 
  SendText('irgendwas'); 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

type TTSClientSocket=class(TClientsocket)
  protected
    procedure DoActivate(Value:Boolean); override;
end;

procedure TTSClientSocket.DoActivate(Value:Boolean);
begin
  //Status ist bereits der gewünschte? Abbruch.
  if Value=Connected then 
    exit;
  //Normales Verhalten beibehalten
  inherited;
  //Nun zusätzliche Aktionen ausführen (nur im Connectfall)
  if Value then
    SendGreeting;
end;