Delphi - repetir código con mismo evento

¡Como puedo lograr que al pulsar un botón se escriba el código en el evento onclick del botón y también para el evento oncreate del form?

procedure Onclickdemiboton(sender:TObject);
begin
showmessage('onclick');
end;

MiBoton.OnClick:=nil;//por si acaso
MiBoton.Onclick:=Onclickdemiboton;

Suerte

Gracias BigLuis por tu rápida respuesta.
No tengo demasiados conocimientos.
Podrías mandarme el código para el siguiente ejemplo:
Yo pulso un botón y quiero que el mismo código se coloque en formcreate.
A continuación te mando parte del código. Te agradezco si me lo puedes completar y corregir.
Gracias

Aquí va el código:

procedure TForm1.mibotonClick(Sender: TObject);
begin
showmessage('onclick');
end;

MiBoton.OnClick:=nil;//por si acaso
MiBoton.Onclick:=Onclickdemiboton;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

Gracias BigLuis por tu rápida respuesta.
No tengo demasiados conocimientos.
Podrías mandarme el código para el siguiente ejemplo:
Yo pulso un botón y quiero que el mismo código se coloque en formcreate.
A continuación te mando parte del código. Te agradezco si me lo puedes completar y corregir.
Gracias