procedure TForm1.RadioGroup2Click(Sender: TObject);
begin 
if Radiogroup1.ItemIndex =0 then Begin 
  Shape1.Brush.Color := clGray;
  Shape2.Brush.Color := clGray;
  Shape3.Brush.Color := clLime;
  Shape12.Brush.Color:= clRed;
  Shape13.Brush.Color:= clGray;
  Shape14.Brush.Color:= clGray     end else

if Radiogroup2.ItemIndex =1 then Begin 
  Shape1.Brush.Color := clGray;
  Shape2.Brush.Color := clYellow;
  Shape3.Brush.Color := clGray;
  Shape12.Brush.Color:= clGray;
  Shape13.Brush.Color:= clYellow;
  Shape14.Brush.Color:= clGray    end else

if Radiogroup2.ItemIndex =2 then Begin 
  Shape1.Brush.Color := clRed;
  Shape2.Brush.Color := clGray;
  Shape3.Brush.Color := clGray;
  Shape12.Brush.Color := clGray;
  Shape13.Brush.Color := clGray;
  Shape14.Brush.Color := clLime   end;
end;