Panel.OnClick als If-Bedingung. WIE????

[raiguen]

und so sieht die Prozedure zum Farbwechsle beim Click aus

Delphi-Quellcode:

procedure DeineProzedure(Sender: TObject)
begin
  if (Sender as TPanel).Color = clSilver then
    (Sender as TPanel).Color := clYellow
  else
    (Sender as TPanel).Color := clSilver;
end;