Canvas в компоненте ListBox

[Миша]

Подскажите пожалуйста как работать на канале Canvas в компоненте ListBox. Нужно чтобы Выделена Строка выделялась не на сером а на каком-то другом цвете.
В моей книге написана "Параметр Rect типа TRect указывает область канвы списка, соответствующую рисуемому элементу списка. Параметр State типа TOwnerDrawState является множеством, элементами которого могут быть значения odSelected - строка выделена,odFocused - строка находится в фокусе и ряд других" но как работать с немы я не знаю.
И еще один вопрос если в списке находиться списки текстовых и видео файлов обязательно прорисовывать значок блокнота или веб странички или видео файла самому или их можно брать с windows.
Заранее спасибо... попрошу сильна не злится я еще новичок

[Квэнди]

procedure TTest.ListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox).Canvas do
  begin
    case Index of
      0:
        begin
          Font.Color := clBlue;
          Brush.Color := clYellow;
        end;
      1:
        begin
          Font.Color := clRed;
          Brush.Color := clLime;
        end;
      2:
        begin
          Font.Color := clGreen;
          Brush.Color := clFuchsia;
        end;
    end;
    FillRect(Rect);
    TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
  end;
end;

ListBox1.Style равным lbOwnerDrawFixed

[Миша]

если вас не затруднит подскажите как работать с odSelected и odFocused

[mutabor]

type TDrawItemEvent = procedure(Control: TWinControl; Index: Integer
 Rect: TRect; State: TOwnerDrawState) of object;

type TOwnerDrawState = set of (odSelected, odGrayed, odDisabled, odChecked odFocused, odDefault, odComboBoxEdit);

if odSelected in State then ...