¡Hola!
Esto puede ser de utilidad:
Código Delphi
[-]
Uses
TypInfo;
Procedure SetFontColor (Const Control :TWinControl; Const Color :TColor);
Begin
(GetObjectProp (Control, 'Font') As TFont).Color := Color;
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetFontColor (Edit1, clRed);
SetFontColor (RadioButton1, clRed);
end;
La clave es obtener el objeto Font mediante RTTI.
Saludos.
Al González.