procedure TForm10.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  CV : TCanvas;
  s  : string;
begin
  CV:=ListBox1.Canvas;

  CV.Brush.Color:=$444444;
  CV.FillRect(Rect);

  CV.Font.Size:=8;
  CV.Font.Color:=$00E4E4E4;
  CV.TextOut(Rect.Left+5,Rect.Top+2,'Two Steps From Hell - '+ChangeFileExt(ListBox1.Items[Index],''));

  s:=StringReplace(Format('%2.0d:%2.0d',[random(15),random(60)]),' ','0',[rfReplaceAll]);
  CV.TextOut(Rect.Right-CV.TextWidth(s)-8,Rect.Top+2,s);

  if Index=ListBox1.ItemIndex then begin
    CV.Pen.Color:=$CCCCCC;
    CV.Pen.Style:=psSolid;
    CV.Rectangle(Rect.Left+3,Rect.Bottom-10,Rect.Right-55,Rect.Bottom-6);
    CV.Brush.Color:=clWhite;
    CV.FillRect(System.Classes.Rect(Rect.Left+4,Rect.Bottom-9,170,Rect.Bottom-6));
  end else begin
    CV.Font.Size:=7;
    CV.Font.Color:=$00007E91;
    CV.TextOut(Rect.Left+5,Rect.Top+16,copy(AnsiUpperCase(ExtractFileExt(ListBox1.Items[Index])),2,10)+' :: 44 kHz :: 320 kBit :: '+((random(50)+7)/10).ToString+' Mb.');
  end;

  CV.Font.Size:=8;
  CV.Font.Color:=$0000DFFF;
  CV.Brush.Style:=bsClear;
  CV.TextOut(Rect.Right-50,Rect.Top+14,StringOfChar('★',random(5)+1));


  CV.Pen.Color:=$777777;
  CV.Pen.Style:=psDot;
  CV.MoveTo(Rect.Left,Rect.Bottom-1);
  CV.LineTo(Rect.Right,Rect.Bottom-1);

  if odFocused in State then
   DrawFocusRect(CV.Handle,System.Classes.Rect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom));
end;