TComboEdit ItemIndex funktioniert in Firemonkey nicht

[mkinzler]

Dann so

Delphi-Quellcode:

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