Limpiar TComboBox

[LACV]

Buen dia estoy intentando limpiar todos los TComboBox de un formulario con un procedimiento pero me arroja un error y no limpia la seleccion.

Código Delphi [-]
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;

Código Delphi [-]
LimpiarCombo(Self);

gracias de antemano