bueno, que no me ponía en rojo los componentes vacíos porque los tenía en GroupBox diferentes (GBInf y GBDPers). Tube que especificar lo siguiente:
Código Delphi
[-]
for I := GBDPers.ControlCount-1 downto 0 do
begin
if GBDPers.Controls[i] is TComboBox then
if TComboBox(GBDPers.Controls[i]).Text = '' then
TComboBox(GBDPers.Controls[i]).Color := clRed;
if GBDPers.Controls[i] is TEdit then
if TEdit(GBDPers.Controls[i]).Text = '' then
TEdit(GBDPers.Controls[i]).Color := clRed;
end ;
for I := GBInf.ControlCount-1 downto 0 do
begin
if GBInf.Controls[i] is TComboBox then
if TComboBox(GBInf.Controls[i]).Text = '' then
TComboBox(GBInf.Controls[i]).Color := clRed;
if GBInf.Controls[i] is TEdit then
if TEdit(GBInf.Controls[i]).Text = '' then
TEdit(GBInf.Controls[i]).Color := clRed;
end ;
Gracias por la ayuda Jorge!!!