ButtonClick Prozedur in eigene Methode definieren

[delphicoder123]

Ich meine das so.

1) Kann man die Prozedur Button1Click und Button2Click auch innerhalb der addiere Funktion definieren. Auch, wenn es an dieser Stelle keinen Sinn macht, würde es mich interessieren, ob sowas überhaupt möglich ist?
2) Falls, das nicht möglich ist, kann man wenigstens, die Prozedur Button1Click und Button2Click in der addiere Funktion aufrufen?

Anstatt das hier:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Message 1');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('Message 2');
end;

function TForm1.addiere(z1,z2:Integer): Integer;
begin
   result:=z1+z2;
end;

Sowas hier(Compiler gibt hier Fehler aus)

Code:

function TForm1.addiere(z1,z2:Integer): Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Message 1');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('Message 2');
end;

begin
   result:=z1+z2;
end;