[[Chris]]

Hola Ignacio! En el siguiente procedimiento:

Empezado por Ignacio Gentile

Código Delphi [-]
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;

No veo donde estés creando y asignando los debidos valores al objeto nuevoItem de tipo TEmpresa. Talvez sea allí que de tu problema. Supongo que siempre el código edtEmpresa.Text := IntToStr(item.id) te devuelve 0.

Saludos,
Chris