Einen Reihe von Befehl ausführen ohne Objekt als Sender

[Äfan]

Hi,

Also folgendes: Wenn ich auf nen Button klicke soll Wert A + B in C eingefügt werden. So aber nun zu meiner Frage: Ich will dies als externe aufgabe machen, also nicht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  C := A+B;
end;

sonder will ich z.B.

Delphi-Quellcode:

Rechnen;
begin
    C := A+B;
end;

und wenn ich auf Button1 klicke, soll das passieren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Rechnen;
end;

Ich habe das erst mit Procedure Rechnen; gemacht aber bei einem Objekt sagt er gleich Undefinierter Bezeichner.

MFG