Помогите пожалуйста разобраться

[Aleks133]

procedure TForm1.ListView1UpdateObjects(const Sender: TObject;
  const AItem: TListViewItem);
var
  i: integer;
begin
  for i := 0 to ListView1.ItemCount - 1 do
  begin
    if ContainsText(ListView1.Items.Objects.FindObjectT<TListItemText>
      ('Text4').Text, '-') = true then
    begin
      ListView1.Items.Objects.FindObjectT<TListItemText>('Text4').TextColor
        := TAlphacolors.Red;
      ListView1.Items.Objects.FindObjectT<TListItemText>('Text4').TextAlign
        := TTextAlign.Trailing;
    end
    else
    begin
      ListView1.Items.Objects.FindObjectT<TListItemText>('Text4').TextColor
        := TAlphacolors.Green;
      ListView1.Items.Objects.FindObjectT<TListItemText>('Text4').TextAlign
        := TTextAlign.Leading;
    end;

    if ListView1.Items.Objects.FindObjectT<TListItemText>('Text3').Text = 'бензин'
    then
    begin
      ListView1.Items.Objects.FindObjectT<TListItemText>('Text3').TextColor
        := TAlphacolors.Blueviolet;
    end;

  end;

end;

А после

FDQuery1.activ:=False;

FDQuery1.activ:=True;

Получается что последняя запись не соответствует условию. Не пойму почему.