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

[Hilfesucher]

He Leute,

ich brache Hilfe bei eine If-Bedingung.
Ich will für etwa 52 Panel eine Procedure schreiben, mit der ich das angeklickte Panel Gelb färbe und beim zweiten klick wieder auf die Standartfarbe.

Damit ich nicht 52 Proceduren schreiben muss wollte ich mit FindCompnent arbeiten, doch dazu muss ich dann auch wissen welches Panel die Procedure gestartet hat.

Mein Versuch war:

Delphi-Quellcode:

var i, Panel_Zahl : integer;
begin
for i := 1 to 52 do
    begin
    if ((Form4.FindComponent('Panel'+IntToStr(i)) as  TPanel).OnClick = [b]true[/b])          {Hier ist mein Problem}
    then if (Form4.FindComponent('Panel'+IntToStr(i)) as  TPanel).color = clBtnFace
         then (Form4.FindComponent('Panel'+IntToStr(i)) as  TPanel).color := clyellow;
         else (Form4.FindComponent('Panel'+IntToStr(i)) as  TPanel).color := clBtnFace;
    end;
end;

Kann mir jemand helfen?


MsfG Hilfesucher