Event (Ereignis) at runtime ändern

[thomas2009]

Hallo

ist es möglich den Event eines Controlls at run time zu ändern ?
z.b. der Event von einem Button ist Momantan :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
showMessage('Original');
end;

Nun möchte ich den Event von Button1 mit einem anderen Button ändern
von ShowMesssage in eine ganze andere Sache. d.h. wenn ich auf Button1 anklicke bekomme ich z.B. folgendes :
Caption:='Der Event wurde von ShowMessage zu Caption geändert';