FMX Combobox mit BMP

[franktron]

Ich habe eine Problem mit der FMX Combobox

Delphi-Quellcode:

Var
  Item  : TComboItem;
  Item1 : TListBoxItem;
  BMP   : TBitmap;
begin
  Item1:=TListBoxItem.Create(Nil);
  Item1.ItemData.Text:=aText;
  Item1.Parent:=Combo_1;
  Item1.ItemData.Detail:=IntToStr(Combo_1.Items.Count);

  BMP:=TBitmap.Create;
  BMP.Width:=10;
  BMP.Height:=10;
  BMP.Canvas.BeginScene();
  BMP.Canvas.Fill.Color:=TAlphaColorRec.Red;
  BMP.Canvas.Fill.Kind:=TBrushKind.Solid;
  BMP.Canvas.FillRect(RectF(0,0,10,10),0,0,AllCorners,1);
  BMP.Canvas.EndScene;
  BMP.SaveToFile('test.bmp');
  Item1.ItemData.Accessory:=TListBoxItemData.TAccessory.aMore;

  Item1.ItemData.Bitmap.LoadFromFile('test.bmp');
  
  //Item1.OnPaint:=lst1Paint;
  Combo_1.AddObject(Item1);

Wenn ich diesen Code Benutze wird kein Bild in der Combobox angezeigt.

Das speichern des BMP dient nur zum Testen und es ist ein Rotes Quadrat.

Was habe ich da Falsch gemacht