procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
    Bitmap: TBitmap;      { temporary variable for the item? bitmap }
    Offset: Integer;      { text offset width }
begin
    with (Control as TCheckListBox).Canvas do  { draw on control canvas, not on the form }
    begin
    FillRect(Rect);       { clear the rectangle }
    Offset := 2;          { provide default offset }
    Bitmap := TBitMap.Create;
    IF (Control as TCheckListBox).Checked[Index] THEN
        ImageList1.GetBitmap(1,Bitmap)
    ELSE
        ImageList1.GetBitmap(0,Bitmap);
    if Bitmap <> nil then
    begin
        Rect.Left := 0;
        BrushCopy(Bounds(Rect.Left   Offset, Rect.Top, Bitmap.Width, Bitmap.Height),
            Bitmap, Bounds(0, 0, Bitmap.Width, Bitmap.Height), clRed);  {render bitmap}
        Offset := Bitmap.width   6;    { add four pixels between bitmap and text}
    end;
    TextOut(Rect.Left   Offset, Rect.Top, (Control as TcheckListBox).Items[Index])  { display the text }
    end;
    Bitmap.Free;
end;