"Direkter zugriff auf auslösendes Objekt"

[asusbob]

Hallooo,

hab da mal ne Frage... ich hab nen Ganzes Formular mit Buttons und immerwieder ähnlichen Codesegmenten.
Nun frag ich mich obs ne Möglichkeit gibt auf die Eigenschaften des "aufrufenden Objekts" also des Buttons der gedrückt wurde zuzugreifen OHNE seinen Bezeichner zu verwenden...

was ich machen möchte ist also, aus dem hier:

Delphi-Quellcode:

procedure TfrmMain.btnBspClick(Sender: TObject);
  var beschreibung, code : string;
begin
  beschreibung := 'blah';
  code         := 'blubb';
  addElem(beschreibung,code,strtoint(btnBsp.Caption),'1','1');
end;

sowas hier:

Delphi-Quellcode:

procedure TfrmMain.btnBspClick(Sender: TObject);
  var beschreibung, code : string;
begin
  beschreibung := 'blah';
  code         := 'blubb';
  addElem(beschreibung,code,strtoint(this.Caption),'1','1');
end;

zu machen...

gibts da irgned ne Möglichkeit?

Greetz
Asus