[ecfisa]

Hola.

Opino igual a lo dicho por román.

Podrías hacer algo como:

Código Delphi [-]
procedure TForm1.RequeridosEnRojo;
var
  i: Integer;
begin
  for i:= 0 to ComponentCount - 1 do
  begin
    if (Components[i] is TDBEdit)and TDBEdit(Components[i]).Field.Required then
        TDBEdit(Components[i]).Font.Color:= clRed;
    if (Components[i] is TDBMemo)and  TDBMemo(Components[i]).Field.Required then
        TDBMemo(Components[i]).Font.Color:= clRed;
    ...
    ...
  end;
end;

Estuve intentando algo con RTTI, pero no salió tan rápido como esperaba ,luego probaré nuevamente...

Un saludo.