with sender

[OldGrumpy]

Also nochmal zusammengefasst:

Delphi-Quellcode:

Procedure TForm1.panelclick(Sender: TObject);
Begin
  if (Sender as TPanel).BevelOuter = bvRaised then //integraler Typencheck mit as
  Begin
    //Typencheck hier schon erfolgt, daher nicht nochmal notwendig
    //kleiner Performancevorteil, hier zwar nicht relevant, aber trotzdem :)
    TPanel(Sender).BevelOuter := bvLowered; 
  End
  Else
  Begin
    TPanel(Sender).BevelOuter := bvRaised;
  End;
End;

An passender Stelle, z.B. im FormCreate dann noch setzen:

Delphi-Quellcode:

panel1.OnClick := panelclick;
Panel2.OnClick := panelclick;
panel3.OnClick := panelclick;
[...]

//edits: aufhübschen