[cancun]

Hola


Deberias usar TDBLookUpComboBox asignas la propiedad ListSource el DataSource del ZQuery el Campo Nombre a ListField y ID a KeyField, en el evento OnClick pones

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
  A:=DBLookupComboBox1.KeyValue;     // ID seleccionado
  B:=DBLookupComboBox1.Text;          // Nombre seleccionado
end;

Saludos