Fórum Criar 2 novos metodos TForm (onAfterCreate e onAfterShow) #346312

Bom amigos...

Gostaria de saber se é possivel criar metodos novos no component TForm
Exemplo: onAfterCreate e onAfterShow.
Porque da minha necessidade:
Sei que posso simular isso atraves de PostMessage, Conforme Exemplo abaixo:

Unit Unit1;

Interface
Uses ....

Const
WM_AFTER_CREATE = WM_USER + 300;

type
TForm1 = class(TForm)

private
public
procedure WmAfterCreate(var Msg: TMessage); message WM_AFTER_CREATE;


procedure TForm1.FormCreate(Sender: TObject);
begin
PostMessage(Self.Handle, WM_AFTER_CREATE, 0, 0);
end;

Isso funciona perfeitamente, deste que eu Crie o formulario Assim:
TForm1 := TForm1.Create(self) etc...

Porem se eu quero criar o Formulario dentro de um TabSheet por exemplo.

O mesmo não funciona. Então pensei em criar um metodo novo em TForm para se chamado apos a criação ou apos mostrar.
Alguem me sugeri uma solução...

Atenciosamente