procedure TFrmHome.LimpiarCombo(formulario2: TForm);
var
i, tamano: integer;
begin
tamano := formulario2.ComponentCount;
for i := 0 to tamano - 1 do
if (formulario2.Components[i] is TEdit) then
begin
TComboBox(formulario2.Components[i]).ClearSelection;
end;
end;