[NumLock]

Код:

procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  if odSelected in State then
    CheckListBox1.Canvas.Brush.Color:=clFuchsia;
  CheckListBox1.Canvas.FillRect(Rect);
  CheckListBox1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top, CheckListBox1.Items[Index]);
  ImageList1.Draw(CheckListBox1.Canvas, CheckListBox1.Canvas.TextWidth('W'+CheckListBox1.Items[Index])+2+Rect.Left, Rect.Top, Index);
end;