Danke für die weiteren Antworten. Habe es wie folgt gelöst;
Code:
procedure TForm1.PanelNumberClick(Sender: TObject);
var
Panelcap : string;
begin
if Sender is Tpanel then
Panelcap := TPanel(Sender).caption;
resultedit.Text := (resultedit.Text + Panelcap);
end;
Jeder Button mit Nummer hat nun diese Procedure bei "OnClick" zugewiesen und es funktioniert ohne Probleme. Habe damit auch die verschiedenen Rechenarten und die Drückeffekte für die Panels generell umgesetzt. Konnte somit von ca. 550 Zeilen auf ca. 210 verkürzen
