ListBox, как сделать цветную, допустим синюю только 5-ую сточку в списке?

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with Control as TListbox do
  begin
    if Index = 4 then
      Canvas.Brush.Color := clRed;
    Canvas.FillRect(Rect);
    Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top, Items[Index]);
  end;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  if (Index = 5) or (Index = 8) then
   begin
    Canvas.Brush.Color := clRed;
    Canvas.FillRect(Rect);
   end;
  
  if (odSelected in State) or (odFocused in State) then
   begin 
    Canvas.Brush.Color := [цвет выделенного курсора];
    Canvas.FillRect(Rect);
   end;
 
 Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top, (Control as TListBox).Items[Index]);
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
var
  //Активный (выбранный) элемент в ListBox на момент последней перерисовки.
  gLastItemIndex : Integer = -1;
 
//Установка цвета для элемента.
procedure SetItemColor(const aIndex : Integer; aLb : TListBox; const aRect : TRect);
var
  Cv : TCanvas;
begin
  Cv := aLb.Canvas;
 
  //Если текущий элемент является активным (выбранным).
  if aLb.ItemIndex = aIndex then begin
    case aIndex of
      0 : begin
        Cv.Brush.Color := RGB(100, 200, 200);
        Cv.FillRect(aRect);
        Cv.Font.Color := RGB(255, 255, 255);
        Cv.TextOut(aRect.Left, aRect.Top, aLb.Items[aIndex]);
      end;
      1 : begin
        Cv.Brush.Color := RGB(200, 100, 200);
        Cv.FillRect(aRect);
        Cv.Font.Color := RGB(255, 255, 255);
        Cv.TextOut(aRect.Left, aRect.Top, aLb.Items[aIndex]);
      end;
      2 : begin
        Cv.Brush.Color := RGB(200, 200, 100);
        Cv.FillRect(aRect);
        Cv.Font.Color := RGB(255, 255, 255);
        Cv.TextOut(aRect.Left, aRect.Top, aLb.Items[aIndex]);
      end;
      else begin
        Cv.Brush.Color := RGB(255, 255, 255);
        Cv.FillRect(aRect);
        Cv.Font.Color := RGB(0, 0, 0);
        Cv.TextOut(aRect.Left, aRect.Top, aLb.Items[aIndex]);
      end;
    end;
  //Если текущий элемент не является активным (не выбран).
  end else begin
    case aIndex of
      0 : begin
        Cv.Brush.Color := RGB(100, 150, 150);
        Cv.FillRect(aRect);
        Cv.Font.Color := RGB(255, 255, 255);
        Cv.TextOut(aRect.Left, aRect.Top, aLb.Items[aIndex]);
      end;
      1 : begin
        Cv.Brush.Color := RGB(150, 100, 150);
        Cv.FillRect(aRect);
        Cv.Font.Color := RGB(255, 255, 255);
        Cv.TextOut(aRect.Left, aRect.Top, aLb.Items[aIndex]);
      end;
      2 : begin
        Cv.Brush.Color := RGB(150, 150, 100);
        Cv.FillRect(aRect);
        Cv.Font.Color := RGB(255, 255, 255);
        Cv.TextOut(aRect.Left, aRect.Top, aLb.Items[aIndex]);
      end;
      else begin
        Cv.Brush.Color := RGB(240, 240, 240);
        Cv.FillRect(aRect);
        Cv.Font.Color := RGB(0, 0, 0);
        Cv.TextOut(aRect.Left, aRect.Top, aLb.Items[aIndex]);
      end;
    end;
  end;
end;
 
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
type
  //Тип структуры для хранения сведений о цвете кисти и пера.
  TCnvSet = record
    BrushColor : TColor;
    FontColor  : TColor;
  end;
var
  Lb : TListBox;
  Cv : TCanvas;
  CnvSet : TCnvSet;
begin
  Lb := Control as TListBox;
  Cv := Lb.Canvas;
 
  //Запоминаем текущие параметры канвы.
  CnvSet.BrushColor := Cv.Brush.Color;
  CnvSet.FontColor := Cv.Font.Color;
 
  //Красим элемент.
  SetItemColor(Index, Lb, Rect);
 
  //Если активным теперь является другой элемент, то надо
  //изменить цвет предыдущего активного элемента - его цвет
  //надо сделать соответствующим неактивному состоянию.
  if ( gLastItemIndex <> -1 ) and ( Index <> gLastItemIndex ) then begin
    SetItemColor( gLastItemIndex, Lb, Lb.ItemRect(gLastItemIndex) );
  end;
 
  //Запоминаем индекс текущего активного элемента.
  gLastItemIndex := Lb.ItemIndex;
 
  //Восстанавливаем прежние параметры канвы.
  Cv.Brush.Color := CnvSet.BrushColor;
  Cv.Font.Color := CnvSet.FontColor;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  for i := 1 to 8 do begin
    ListBox1.Items.Add('Элемент №' + IntToStr(i));
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.Clear;
end;
 
end.

        Cv.Font.Color := RGB(255, 255, 255);
        Cv.TextOut(aRect.Left, aRect.Top, aLb.Items[aIndex]);

        Cv.Font.Color := RGB(0, 0, 255); //Синий или голубой.
        Cv.TextOut(aRect.Left, aRect.Top, aLb.Items[aIndex]);