Refrescar un combobox llenado con registros

[rufo]

procedure Tprincipal2.ComboBox7Exit(Sender: TObject);
begin
 with dm1.Q_cfacturas do
   begin
      active:=false;
      sql.clear;
      sql.add('select id_cuenta, numerocta from Cfacturas');
      sql.Add('where cuenta = '+#39+combobox7.text+#39);
      active:=true;
      first;
      label114.Caption:=fieldbyname('numerocta').asstring;
      if recordcount<>0 then
         V_idcuenta:=fieldbyname('id_cuenta').asinteger
      else
       if Application.MessageBox('No se encontro la especialidad, Deseas Agregarlo?','Agregar',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
         with Agrecatalogo do
         begin
          Visible:=true;
         end;
          end;
   end;

El formulario Agrecatalogo es donde actualizo la tabla desde un dbgrid ahi no tengo problemas el problema es en el combo para que no me muestre datos repitidos, gracias por contestarme.