procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  NewFont: TFont;    begin
  // 產生新字體
  NewFont := TFont.Create;
  try
    // 複製原來的字體屬性. 只修改字體顏色.
    NewFont.Assign(RadioGroup1.Font);
    for i := 0 to RadioGroup1.ControlCount - 1 do
    begin
      if i in [0, 1] then       // 把第1, 2個顏色設為淡藍色
        NewFont.Color := RGB(100, 100, 255)
      else if i in [2, 3] then  // 把第3, 4個顏色設為黃色
        NewFont.Color := RGB(255, 255, 0)
      else                      // 其它則使用原始顏色
        NewFont.Color := RadioGroup1.Font.Color;          // 設定新字型.
      RadioGroup1.Controls[i].Perform(CM_PARENTFONTCHANGED, 1, LongInt(NewFont));
    end;
  finally
    NewFont.Free;
  end;
end;