TCombobox unter FMX

[skoschke]

Hallo,

ich habe ein komisches Phänomen mit einer Combobox in einer Windows + Android-Anwendung:

Delphi-Quellcode:

  
procedure TFormAuftrag.ComboBoxMontuerClick(Sender: TObject);
var
  t: string;
begin
  if ComboBoxMontuer.ItemIndex = -1 then
    exit;
  t := ComboBoxMontuer.items[ComboBoxMontuer.ItemIndex];
  showmessage(t);

Beim ersten draufklicken ist ItemIndex - 1, korrekt, die Box klappt auf
Dann beim Klick auf einen Eintrag ist aber immer noch Itemindex -1!
Erst beim nächsten Klick kommt die Test-Showmessage!

Ich möchte aber direkt nach Auswahl eines Eintrags damit weiter arbeiten!
Was ist denn da kaputt?
Einen Event direkt für die Auswahl eines Items gibt es scheinbar nicht?

Ciao
Stefan