TDBComboBox: Auswahl geht verloren bei OnEditMode

[Gremlin]

Hallo


ich habe eine simple TFDMemTable mit TDataSource und einer TDBComboBox.

Die Komponenten sind alle miteinander verbunden, die ComboBox geht auf ein Integer-Feld.
In TFDMemTable ist der Event OnBeforeEdit mit einer Abfrage verbunden, ob in den Edit-Modus gewechselt werden soll.
Die ComboBox ist im Style=csDropDownList und enthält diverse Integer-Werte in Items.

Code:

  if not(FDMemTable1.State=dsEdit) then
    if (MessageDlg('in Edit Mode schalten?', mtConfirmation, [mbYes, mbNo], 0) <> mrYes) then Abort;

Ist die Datenmenge im Edit-Mode, so kann über die Combo der Wert ohne Probleme geändert werden.
Ist die Datenmenge jedoch nicht im Edit-Mode und wird versucht über die Combo einen Wert auszuwählen, so enthält nach der Auswahl und der Abfrage "in Edit Mode schalten?" der Wert der Combo wieder den Anfangswert.

Wahrscheinlich ist dieses Problem schon immer vorhanden, aber jetzt erst aufgefallen.
Irgendeine Idee??

Danke