TPanel als Sender Casten

[DeddyH]

Sagt der Compiler nichts dazu? Ich würde da beherzt noch ein begin und end einfügen.

Delphi-Quellcode:

procedure TForm1.PanelNumberClick(Sender: TObject);
var
  Panelcap   : string;
begin
  if Sender is Tpanel then
    begin
      Panelcap := TPanel(Sender).caption;
      resultedit.Text := (resultedit.Text + Panelcap);
    end;
end;