procedure TForm1.DialogConstructed(Sender: TObject);
var
  I: Integer;
  LForm: TCustomForm;
begin
  LForm := TCustomForm(Sender);
  for I := 0 to LForm.ControlCount - 1 do
  begin
    if LForm.Controls[I] is TRadioButton then
    begin
      TRadioButton(LForm.Controls[I]).Font.Size := 11;
      TRadioButton(LForm.Controls[I]).Font.Color := clBlue;
    end;
  end;
end;