Как поменять цвет строки в listbox?

procedure addlog(txt:string);
begin
 Form1.Listbox1.Items.Add(txt);
 Form1.ListBox1.TopIndex:=Form1.ListBox1.Items.Count-1;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with ListBox1.Canvas do begin
    if (Index + 1) mod 2 = 0 then begin
      //Если прорисовываемая строка чётная.
      Brush.Color := RGB(100, 150, 150);
      FillRect(Rect);
      Font.Color := RGB(255, 255, 255);
      TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
    end else begin
      //Если прорисовываемая строка нечётная.
      Brush.Color := RGB(150, 150, 100);
      FillRect(Rect);
      Font.Color := RGB(255, 255, 255);
      TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
    end;
  end;
end;

procedure TForm1.AddLog(const aStr: String; const aColor: TColor);
begin
  //Добавляем в качестве очередного элемента пару: строка + объект.
  //Но в качестве объекта передаём на самом деле сведения о цвете.
  //Т. е. таким образом мы добавляем информацию - строку и цвет фона,
  //который будет прорисован для этой строки.
  ListBox1.Items.AddObject(aStr, TObject(aColor));
end;
 
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with ListBox1.Canvas do begin
    //Извлекаем сведения о цвете фона и задаём для кисти этот цвет.
    Brush.Color := TColor( ListBox1.Items.Objects[Index] );
    //Закрашиваем прямоугольник, в который потом будет выведена строка.
    FillRect(Rect);
    //Выводим текст строки.
    TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
  AddLog(
    'Строка №' + IntToStr(ListBox1.Items.Count),
    RGB(50 + Random(11) * 20 , 150, 150)
  );
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.Clear;
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 Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure AddLog(const aStr : String; const aColor : TColor);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.AddLog(const aStr: String; const aColor: TColor);
begin
  //Добавляем в качестве очередного элемента пару: строка + объект.
  //Но в качестве объекта передаём на самом деле сведения о цвете.
  //Т. е. таким образом мы добавляем информацию - строку и цвет шрифта,
  //которым будет прорисован текст этой строки.
  ListBox1.Items.AddObject(aStr, TObject(aColor));
end;
 
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  OldColor : TColor;
begin
  with ListBox1.Canvas do begin
    //Запоминаем действующий цвет шрифта.
    OldColor := Font.Color;
    //Извлекаем сведения о цвете шрифта и задаём для шрифта канвы этот цвет.
    Font.Color := TColor( ListBox1.Items.Objects[Index] );
    //Выводим текст строки.
    TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
    //Восстанавливаем прежний цвет шрифта.
    Font.Color := OldColor;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
  AddLog(
    'Строка №' + IntToStr(ListBox1.Items.Count),
    RGB(Random(11) * 20 , Random(11) * 20, Random(11) * 20)
  );
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.Clear;
end;
 
end.

procedure TForm1.AddLog(const aStr: String; const aColor: TColor);
begin
  //Добавляем в качестве очередного элемента пару: строка + объект.
  //Но в качестве объекта передаём на самом деле сведения о цвете.
  //Т. е. таким образом мы добавляем информацию - строку и цвет фона,
  //который будет прорисован для этой строки.
  ListBox1.Items.AddObject(aStr, TObject(aColor));
end;

procedure TForm2.CheckListBox1Click(Sender: TObject);
var i:Integer;
 begin
   FirstFlag:=True; //Пользователь начал работать со списком. Разрешаем изменять предыдущую строку
 end;
 
//Присваиваем строкам цвета в зависимости от чекбокса. Если выбрано больше 9 строк, то
//запрещаем дальше выставлять галочки.
procedure TForm2.CheckListBox1ClickCheck(Sender: TObject);
var i,d:Integer;
 begin
   d:=0;
   for I :=1 to CheckListBox1.Items.Count do
    if CheckListBox1.Checked[i-1]=True then
      begin
        d:=d+1;
        if (d<10) then
          begin
            CheckListBox1.Items.Objects[I-1]:=TObject(AColors[d+1]);
            CheckListBox1.Checked[i-1]:=False; //Это нужно чтобы перерисовать цвета выбранных строк
            CheckListBox1.Checked[i-1]:=True;  // активируя событие drawitem для данной строки
            CheckListBox1.ShowHint:=False; //отключаем подсказку
          end
         else
          begin
            CheckListBox1.Items.Objects[I-1]:=TObject(clWhite); //возвращаем цвет по умолчанию
            CheckListBox1.Checked[i-1]:=False; //снимаем галочку так как превышен лимит выбора
            CheckListBox1.ShowHint:=True; //включаем подсказку что более 9 строк выбирать нельзя
          end;
      end
     else CheckListBox1.Items.Objects[I-1]:=TObject(clWhite); //возвращаем цвет по умолчанию для всех невыбранных строк
 end;
 
//Присваиваем цвета выделенным строкам в списке
procedure TForm2.CheckListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
 begin
   // Прорисовка строки при глобальном обновлении
   with CheckListBox1.Canvas do
     begin
         Brush.Color := TColor(CheckListBox1.Items.Objects[Index]);
         FillRect(Rect);
         Font.Color :=clBlack;
         TextOut(Rect.Left, Rect.Top, CheckListBox1.Items[Index]);
      end;
   //Снимаем выделение с предыдущей выделенной строки
   if FirstFlag=True then
     with CheckListBox1.Canvas do
       begin
           Brush.Color := TColor(CheckListBox1.Items.Objects[LastIndex]);
           FillRect(LastRect);
           Font.Color :=clBlack;
           TextOut(LastRect.Left, LastRect.Top, CheckListBox1.Items[LastIndex]);
        end;
//Выделяем текущую строку
   if CheckListBox1.ItemIndex=Index then
     with CheckListBox1.Canvas do
      begin
         Brush.Color := clBlack;
         FillRect(Rect);
         Font.Color :=clWhite;
         TextOut(Rect.Left, Rect.Top, CheckListBox1.Items[Index]);
      end;
//Запоминаем данные текущей строки для обработки при следующем срабатывании события
 LastIndex:=Index;
 LastRect:=Rect;
 end;

procedure TForm1.CheckListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  if odselected in State then
  begin
    CheckListBox1.Canvas.Brush.Color := clBlue;
  end
  else
  if odd(index) then
  begin
    CheckListBox1.Canvas.Brush.Color := clRed;
  end
  else
  begin
    CheckListBox1.Canvas.Brush.Color := clWhite;
  end;
  CheckListBox1.Canvas.FillRect(rect);
  CheckListBox1.Canvas.TextOut(rect.Left+2,rect.Top+2,CheckListBox1.Items[index]);
end;

 if odselected in State then
    CheckListBox1.Canvas.Brush.Color := clBlue
  else
   CheckListBox1.Canvas.Brush.Color := clRed;
 
  CheckListBox1.Canvas.FillRect(rect);
  CheckListBox1.Canvas.TextOut(rect.Left,rect.Top,CheckListBox1.Items[index]);

 if CheckListBox1.ItemIndex=Index then
    CheckListBox1.Canvas.Brush.Color := clBlue
  else
   CheckListBox1.Canvas.Brush.Color := clRed;
 
  CheckListBox1.Canvas.FillRect(rect);
  CheckListBox1.Canvas.TextOut(rect.Left,rect.Top,CheckListBox1.Items[index]);

Form2.lst1.Items[nlst]:= 'Авторизуемся в: '+akk;

Form2.lst1.Items[nlst]:= 'Авторизуемся в: '+akk;

procedure TForm2.lst1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect;
  State: TOwnerDrawState);
var
  OldColor : TColor;
begin
  with Lst1.Canvas do begin
    //Запоминаем действующий цвет шрифта.
    OldColor := Font.Color;
    //Извлекаем сведения о цвете шрифта и задаём для шрифта канвы этот цвет.
    Font.Color := clRed;
    //Выводим текст строки.
    TextOut(Rect.Left, Rect.Top, Lst1.Items[Index]);
    //Восстанавливаем прежний цвет шрифта.
    Font.Color := OldColor;
  end;
end;