function TUtilerias.LlenarCombo(var cmbCombo: TComboBox; sSentencia: String; bSeleccionar: boolean = true; sPrimeraLinea: String = ''): boolean;
var
qryConsulta: TSQL;
begin
Result:= true;
qryConsulta:= Sistema.BaseDato.CrearConsulta(sSentencia);
cmbCombo.Items.BeginUpdate;
cmbCombo.Clear;
if(sPrimeraLinea <> EmptyStr) then
cmbCombo.Items.Add(sPrimeraLinea);
with qryConsulta do
if(Activo) then
begin
while(not EsFinArchivo) do
begin
cmbCombo.Items.AddObject(qryConsulta.CampoCadena(0), TObject(qryConsulta.CampoEntero(1)));
Siguiente;
end;
cmbCombo.Items.EndUpdate;
if(bSeleccionar) then
cmbCombo.ItemIndex:= 0
else
cmbCombo.ItemIndex:= -1;
end
else
Result:= false;
end;