como crear un boton en ejecucion y ponerle un evento

[jeremiselxi]

hola amigos del foro, leean lo que quiero hacer, tengo un tbutton en mi formulario, pero quiero crear un Tbutton en ejecucion pero con un evento como por ejemplo en el evento onclick showmessage('Boton creado');
hice esto

Código Delphi [-]
var
nuevoboton:Tbutton;
begin
nuevoboton:=tbutton.Create(self);
with nuevoboton do
  begin
  top:=  32;
  width:=121;
  left:= width * (self.ControlCount -0);
  parent:=self;
  caption:='boton';
  end ;
end;

entente ponerle

Código Delphi [-]
OnClick:= showmessage('boton creado');

pero me sale k tengo k poner este error

[Error] Unit1.pas(39): Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

pero como dije antes quiero ponerle un evento como por ejemplo un showmessage,
porque diganme ustedes, ¿de que me vale crear un boton si no hara nada en especifico:-)? espero por su respuesta. Cristo les ama