CheckListBox的每個item前面如何加個小圖片?

我做了一個例子,但我還想知道有那些更好的方法
procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
     Bitmap.LoadFromFile('c:\ddd.bmp');     CheckListBox1.Canvas.TextRect(Rect,Rect.TopLeft.X+30,Rect.BottomRight.y-15,CheckListBox1.Items.Strings[Index]);
     CheckListBox1.Canvas.Draw(Rect.TopLeft.X,Rect.BottomRight.y-15, Bitmap);
end;