TComboEdit ItemIndex funktioniert in Firemonkey nicht

[Delphi.Narium]

Innereien bei Delphi 7:

Delphi-Quellcode:

function TCustomComboBoxStrings.IndexOf(const S: string): Integer;
begin
  Result := SendMessage(ComboBox.Handle, CB_FINDSTRINGEXACT, -1, LongInt(PChar(S)));
end;