procedure TFormDoubleSongDialog.lvDatabaseAdvancedCustomDrawSubItem(
  Sender: TCustomListView; Item: TListItem; SubItem: Integer;
  State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
var
  SubItemLeft : Integer;
  CheckSong : TCheckSongItem;
  iCnt : Integer;
begin
  If (Item=nil) then
    Exit;
  // Berechne die Left-Koordinate des passenden Items
  CheckSong:=TCheckSongItem(Item.Data);
  If (CheckSong<>Nil) and (SubItem=5) and (Stage=cdPrePaint) then // mit Stage=cdPrePaint entspricht das Event dem OnDrawSubItem
    begin
    SubItemLeft:=Item.Left;
    For iCnt:=0 to TListView(Sender).Columns.Count-2 do // Berechne die Left-Koordiante für das Bitmap
      Inc(SubItemLeft,Sender.Column[iCnt].Width);
    Try
      Sender.Canvas.Draw(SubItemLeft,Item.Top,SystemDataprovider.Stars.Value[CheckSong.Rating].Bitmap);
    Except
      Sender.Canvas.Draw(SubItemLeft,Item.Top,SystemDataprovider.Stars.Value[0].Bitmap);
      end;
    end; // If SubItem=5 then
end;