Hola.
En tu código estas cargando el mismo campo (SelecEPOCA_NUM) en el combo.
Te pongo un ejemplo que hace lo que entendí que deseabas hacer:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
Selec.Open;
while not Selec.Eof do
begin
ComboBox1.AddItem(SelecEPOCA.AsString, TObject(SelecEPOCA_NUM.AsInteger));
Selec.Next;
end;
Selec.Close;
end;
procedure TForm1.ComboBox1Click(Sender: TObject);
var
cb: TComboBox;
num: Integer;
epo: string;
begin
cb := TComboBox(Sender); epo := cb.Items[cb.ItemIndex]; num := Integer(cb.Items.Objects[cb.ItemIndex]);
ShowMessageFmt('EPOCA : %s%sEPOCA_NUM: %d',[epo, #10,num]);
end;
Saludos