Пример.

Для того, чтобы задать названия переключателей необходимо в инспектор объектов активизировать свойство Items. ри этом открывается окно:

В секции Private необходимо описать переменную

Color : Tcolor;

В обработчике FormCreate необходимо задать первоначальное значение цвета:

Procedure TForm1.FormCreate(Sender : TObject);

begin

Color := clBlue;

end;

В обработчике RadioGroup1Click:

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

if RadioGroup1.ItemIndex=0 then Color := clBlue;

if RadioGroup1.ItemIndex=1 then Color := clGreen;

if RadioGroup1.ItemIndex=2 then Color := clRed;

end;

В обработчике Button1Click:

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Font.Color := Color;

Edit1.Text := 'Группа 207218';

end;

Замечание.

Если нужно программным способом переключить любой переключатель, то можно воспользоваться записью вида:

RadioGroup1.ItemIndex := 2;