[*Caro*]

Hola de nuevo, si es así ni modo, empecemos llenando el ComboBox, tu necesitas mostrar en tu combo las descripciones de las sucursales y tener almacenado en algun lugar los codigos que corresponden a esas sucursales, par este ultimo podemos utilizar un StringList. No has puesto tu tabla sucursales, supongo que tienes un codigo y descripcion para la sucursal.

Código Delphi [-]
var
   codigo, decripcion:string;
   slCodigos : TStringList;
begin
   slCodigos := TStringList.Create;
 
   Query.close;
   Query.SQL.clear;
   Query.sql.text := 'SELECT codigo,descripcion FROM sucursal ';
   Query.Open;
 
   query.First;
   ComboBox.Items.Clear;
   While not(Query.EOF) do
    begin
       codigo:=query.FieldbyName('codigo').AsString;
       descripcion:=query.FieldbyName('descripcion').AsString;

       slCodigos.Add(codigo);
       ComboBox.Items.Add(descripcion);
    
       query.Next;
    end;
  ComboBox.ItemIndex := 0; //para que se posicione en el primer item
end;

de esa forma ya tenemos nuestro combo con todas las descripciones y codigos en nuestro StringList.

Ahora para saber que codigo le pertenece a cada descripción, tienes que recuperar el itemIndex de tu ComboBox y obtener esa posición de tu StringList.

Código Delphi [-]
  
  slCodigos[ComboBox.ItemIndex];

teniendo ya el codigo, ejecutas tu consulta con ese codigo.

Si tienes dudas o algo no te funciona, sigue preguntando, pero trata de hacer tus pruebas antes.

Saluditos