procedure TForm1.RadioGroup1Click(Sender: TObject); var i: integer; begin with RadioGroup1 do begin //Réinitialisation de la couleur des boutons //autres que celui cliqué for i := 0 to Items.Count - 1do if i <> ItemIndex then TRadioButton(Components[i]).Font.Color : = clBlack; //Coloration de la police de l'élément sélectionné TRadioButton(Components[ItemIndex]).Font.Color := clRed end ; end;