Problema Al Obtener Elementos En Combobox

[Ignacio Gentile]

Buenas! Mi problema es que agrego elementos a un combobox y se agregan bien, los muestra bien pero al momento de seleccionar uno siempre me selecciona el mismo..Evaluando el ItemIndex me doy cuenta de que obtiene bien el index del elemento seleccionado pero no me devuelve el objeto incorrecto y no le puedo encontrar el problema de porque pasa eso..Revisando el código no encuentro el error. Dejo el segmento de código,si alguno me puede ayudar seria bueno

Código Delphi [-]
type
  TEmpresa = class (TObject)
    id:integer;
    descripcion:string;
  end;

procedure TfrmElegirEmpresa.ListaEmpresa;
var nuevoItem:TEmpresa;
    j:integer;
begin
      for j:=0 to ZQuery1.RecordCount-1 do
          begin
             if (DBGrid1.Fields[0].Value = nuevoItem.id) then
              begin
                  cmbEmpresa.Items.AddObject(nuevoItem.Descripcion, nuevoItem);
              end;
             ZQuery1.Next
          end;
end;

procedure TfrmElegirEmpresa.cmbEmpresaChange(Sender: TObject);
var indice:integer;
    item:TEmpresa;
begin
   indice:=cmbEmpresa.ItemIndex;
   item:= TEmpresa(cmbEmpresa.Items.Objects[indice]);
   edtEmpresa.Text := IntToStr(item.id) ;

   cmbSucursal.Items.Clear;
   ListaSucursal(item.id);
end;