TFrame2 = class(TFrame) private { Private declarations } FOnCreate : TNotifyEvent; public { Public declarations } constructor Create(AOwner : TComponent); override; published property OnCreate : TNotifyEvent read FOnCreate write FOnCreate; end; constructor TFrame2.Create(AOwner : TComponent); begin inherited Create(Owner); if Assigned(FOnCreate) Then FOnCreate(Self); end;