[AlexSku]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var I: Integer;
begin
  for I:= 0 to RadioGroup1.Items.Count - 1 do
    (RadioGroup1.Controls[i] as TRadioButton).Font.Color:= clWhite;
end;