[Страдалецъ]

А если так?:

Код:

procedure nazg(Sender: TObject);
 var
  APanel : TPanel;
begin
  If Sender Is TPanel 
  Then Begin
         APanel := Sender As TPanel;
         if APanel.Color=clBtnFace  
         then APanel.Color := clYellow else APanel.Color :=clBtnFace;
         if APanel.Bevelouter =bvRaised 
         then APanel.Bevelouter:=bvLowered 
         else APanel.Bevelouter:=bvRaised;
         End;
end;

procedure TForm3.Panel1Click(Sender: TObject);
begin
 if GetAsyncKeyState(VK_SHIFT) = -32767 
 then begin
        nazg(Panel1);
        nazg(Panel93);
        nazg(Panel95);
        nazg(Panel99);
        nazg(Panel98);
        nazg(Panel92);
        nazg(Panel77);
        end;
 end;