change the text color within my listviewitem (DynamicAppearance)

i'm trying to change the text color within my listviewitem (DynamicAppearance) for a text object. I have multiple text objects in the listviewitem . I'm using the below code    Procedure TFGestaoInsp.ListarObras; var    LItem  : TListViewItem;   begin        LVObras.BeginUpdate;      DM.qryAux.SQL.Clear;    DM.qryAux.SQL.Add('Select * From Zonas Order By DescZona limit 50');    DM.qryAux.Open;      LVObras.Items.Clear; //Items;        while not DM.qryAux.eof do    begin           try           LItem               := LVObras.Items.Add;             LItem.Data['Text6'] := '1';           {           TListItemImage(LItem.Objects.FindDrawable('Image6')).ImageIndex := 0;           TListItemImage(LItem.Objects.FindDrawable('Image7')).ImageIndex := 1;           TListItemImage(LItem.Objects.FindDrawable('Image8')).ImageIndex := 2;           TListItemImage(LItem.Objects.FindDrawable('Image9')).ImageIndex := 3;           TListItemImage(LItem.Objects.FindDrawable('Image10')).ImageIndex := 4;           TListItemImage(LItem.Objects.FindDrawable('Image11')).ImageIndex := 5;           TListItemImage(LItem.Objects.FindDrawable('Image12')).ImageIndex := 6;           TListItemImage(LItem.Objects.FindDrawable('Image13')).ImageIndex := 7;           TListItemImage(LItem.Objects.FindDrawable('Image14')).ImageIndex := 8;           }               LItem.Data['Text1'] := DM.qryAux.FieldByName('DescZona').AsString;           LItem.Data['Text2'] := 'C1 NC2 NA3';           LItem.Data['Text3'] := '17.08.29';           LItem.Data['Text4'] := '';             TListItemText(LItem.Objects.FindDrawable('Text2')).TextColor := TAlphaColorRec.Red; //TAlphaColorRec.Green;               LItem.Tag := DM.qryAux.FieldByName('IdZona').AsInteger;         finally         end;           DM.qryAux.Next;    end;      LVObras.EndUpdate;    DM.qryAux.Close;      TabPrInsp.ActiveTab := TabListaInsp;     end;