TComboBox: Items.IndexOfObject funktioniert nicht

[OdermattThomas]

interessanterweise funktioniert folgender code immer noch perfekt (in delphi 6):

Code:

  s := TStringlist.Create;
  s.AddObject( 'Item1', Pointer(1) );
  s.AddObject( 'Item1', Pointer(2) );
  s.AddObject( 'Item1', Pointer(3) );
  Caption := IntToStr( s.IndexOfObject( Pointer(2) ));
  s.Free;

ich vermute irgend eine umstellung in controls.pas:

Code:

function TCustomComboBoxStrings.GetObject(Index: Integer): TObject;
begin
  Result := TObject(SendMessage(ComboBox.Handle, CB_GETITEMDATA, Index, 0));
  if Longint(Result) = CB_ERR then
    Error(SListIndexError, Index);
end;

procedure TCustomComboBoxStrings.PutObject(Index: Integer; AObject: TObject);
begin
  SendMessage(ComboBox.Handle, CB_SETITEMDATA, Index, Longint(AObject));
end;