[axesys]

Puede ser algo así

Código Delphi [-]
////////////////////////////////////////////////////////////////////////////////
//
// Función: Llenarcombo
// Descripción: Llena un combo con una sentencia SQL
// Parámetros: cmbCombo - Combo que se desea llenar
//             sSentencia - Sentencia SQL para llenar el combo
// Regresa: boolean - Verdadero si se pudo llenar el combo, falso si hubo error
// Autor: Bismarck Sierra.
// Fecha: 2005-11-22
// Comentarios: La sentencia SQL debe regresar 2 campos, el primero lo que se
//              quiere que aparezca en el combo, el segundo la clave para
//              identificar cada valor en el combo
//
////////////////////////////////////////////////////////////////////////////////
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;