[ecfisa]

Hola.

Ahora si entendí, un modo de hacerlo puede ser este:

Código Delphi [-]
...
implementation

var
  TS: TStringList;

procedure TF_Sel_Epoca.FormCreate(Sender: TObject);
begin
  TS := TStringList.Create;
  Selec.Open;
  while not Selec.Eof do
  begin
    TS.Add(SelecEPOCA.AsString);
    ComboBox1.Items.Add(SelecEPOCA_NUM.AsString);
    Selec.Next;
  end;
  Selec.Close;
  ComboBox1.ItemIndex := -1;
end;

procedure TF_Sel_Epoca.ComboBox1Click(Sender: TObject);
var
  cb: TComboBox;
begin
  cb := TComboBox(Sender);
  Label1.Caption := TS[cb.ItemIndex]
end;

...

procedure TF_Sel_Epoca.FormDestroy(Sender: TObject);
begin
  TS.Free;
end;

end.

Saludos