TComboEdit ItemIndex funktioniert in Firemonkey nicht

[mkinzler]

So funktioniert es

Delphi-Quellcode:

procedure TForm1.ComboEditChange(Sender: TObject);
var
  ce: TComboEdit;
  se: TStringsEnumerator;
  s: String;
begin
  ce := (Sender as TComboEdit);
  if ce.ItemIndex >= 0 then
  begin
    se := ce.Items.GetEnumerator;
    s := '';
    while se.MoveNext do
    begin
      s := se.Current;
      if s = ce.Text then break;
    end;
    Edit1.Text := s;
  end;
end;