ListBox DrawItem

[SolovejK]

Выделяю нужные мне строки в ListBox красным цветом:

procedure TMain.ListBox2DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
i: integer;
A: set of byte;
begin
  XMLDocument1.Active := true;
  Uzel := XMLDocument1.DocumentElement.ChildNodes['ib'];
  with (Control as TListBox).Canvas do
     begin
       for I := 0 to Uzel.ChildNodes.Count - 1 do
       begin
          if  Uzel.ChildNodes[i].ChildNodes[0].ChildNodes[0].GetAttribute(WideString('docs')) <>
              Uzel.ChildNodes[i].GetAttribute(WideString('nTexts'))
          then  A:=[i];
          if index in A then Font.Color := clRed;
          FillRect(Rect);
          TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[index]);
       end;
     end;
  XMLDocument1.Active := false;
end;

Все прекрасно работает, строки красные. Затем необходимо нажать на кнопку и заполнить ListBox другой информацией:

procedure TMain.Button6Click(Sender: TObject);
var
  i : integer;
begin
  ListBox2.Items.Clear;
  ListBox2.Items.LoadFromFile('Список организаций.txt');
  Label12.Visible := true;
  Label19.Visible := true;
  i := 0;
  while i <> ListBox2.Items.Count do
  if ListBox3.Items.IndexOf(ListBox2.Items[i]) <> -1
  then ListBox2.Items.Delete(i)
  else inc(i);
  Label12.Caption := 'Нехватает: '+IntToStr(ListBox2.Items.Count);
  ListBox2.Enabled := False;
end;

После очистки ListBox, строки, которые до этого были красными опять перекрашиваются в красный.

Как вернуть обратно черный цвет строк в ListBox при нажатии на эту кнопку.

[Аватар]

OnDrawItem продолжает-то отрабатывать, вот и красит. Style поменяйте на lbStandard. А выбранный способ перекраски очень странный. Можно было бы при заполнении ListBox в Items.Objects загнать признак 1 для строк подкрашиваемых и 0 для не подкрашиваемых и использовать при прорисовке

[SolovejK]

Спасибо за подсказку. Как же я сам не догадался вернуть стиль на стандартный .