for I := ControlCount-1 downto 0 do
if Controls[i] is TComboBox then
begin
if TComboBox(Controls[i]).Text = '' then
TComboBox(Controls[i]).Color := clRed;
end
else if Controls[i] is TEdit then
begin
if TEdit(Controls[i]).Text = '' then
TEdit(Controls[i]).Color := clRed;
end;