1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

TMyClass = class(TMemo)
  published
    property OnEnter(?); override;
  end;

...

property TMyClass.OnEnter;
begin
  inherited;
  // und halt noch mehr ausführen wenn das "onenter" eingetreten ist
end;					

1:
2:
3:
4:
5:
6:

type
  TMyClass = class(TMemo);
  private
    UserOnEnter : TNotifyEvent;
    procedure DeinOnEnter(Sender: TObject);
  end;					

1:
2:

  if Assigned(OnEnter) then UserOnEnter:=OnEnter;
  OnEnter:=DeinOnEnter					

1:
2:
3:
4:
5:

procedure TMyClass.DeinOnEnter(Sender: TObject);
begin
  //Dein Code
  if Assigned(UserOnEnter) then UserOnEnter(Sender);
end;					

1:
2:
3:
4:

procedure TWinControl.DoEnter;
begin
  if Assigned(FOnEnter) then FOnEnter(Self);
end;					

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

type
  TMyClass = class(TClientSocket)
  private
    procedure DoConnect(MyRec: TMyRec); reintroduce; override;
  end;

implementation

procedure TTSSocketClass.DoConnect;
begin
  inherited;
  with Socket do
  begin
    SendText(MyRec.var1);
    SendText(MyRec.var2;
    SendText(MyRec.var3);
  end;
end;					

1:
2:

TSocketEvent = (seLookup, seConnecting, seConnect, seDisconnect, seListen,
    seAccept, seWrite, seRead);					

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

type
  TMyClass = class(TClientSocket)
  protected
    procedure Event(Socket: TCustomWinSocket; SocketEvent: TSocketEvent); override;
  end;

implementation

procedure TTSSocketClass.Event(Socket: TCustomWinSocket; SocketEvent: TSocketEvent);
begin
  inherited;
  if SocketEvent = seConnect then
    with Socket do
    begin
      SendText(MyRec.var1);
      SendText(MyRec.var2;
      SendText(MyRec.var3);
    end;
end;					

1:
2:
3:

      SendText(MyRec.var1);  
      SendText(MyRec.var2);  
      SendText(MyRec.var3);					

1:

procedure TTSSocketClass.Event(Socket: TCustomWinSocket; SocketEvent: TSocketEvent; myRec: TMyRec);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

type
  TMyRec = record
    var1: type1;
    var2: type2;
    var3: type3;
  end;

  TMyOnConnect = procedure (Sender: TObject; Socket: TCustomWinSocket; var aRec: TMyRec) of object;

  TMyClass = class(TClientSocket)
  private
    FOnConnect: TMyOnConnect;
  protected
    procedure Event(Socket: TCustomWinSocket; SocketEvent: TSocketEvent); override;
  published
    property OnConnect: TMyOnConnect read FOnConnect write FOnConnect;
  end;

implementation

procedure TTSSocketClass.Event(Socket: TCustomWinSocket; SocketEvent: TSocketEvent);
var
  aRec: TMyRec;
begin
  inherited;
  if SocketEvent = seConnect then
  begin
    if Assigned(FOnConnect) then
    begin
      FOnConnect(Self, Socket, aRec); 
      SendText(aRec.var1);
      SendText(aRec.var2;
      SendText(aRec.var3);
    end;
  end;
end;