Colorir apenas um panel

 clicado := 0;
  for i := 5 to ComponentCount-1 do
  begin
    if (TImage(Components[i]) = Sender) then
    begin
      //Controle := (Sender as TControl).Parent;
      Controle := TControl(Sender).Parent;
      if Controle is TPanel then
        resposta := TImage(Components[i]).Name;
        clicado := i;
        with TPanel(Controle) do
        begin
          if Color = clGreen then
            Color := clWhite
          else
            Color := clGreen;
        end;
    end
    else
    begin
      Controle := TControl(Sender).Parent;
      if Controle is TPanel then
        with TPanel(Controle) do
        begin
          if clicado <> i then
            Color := clWhite;
        end;
        exit;
    end;
  end;