Doubt about fmx

I fill a listview of this two forms within a loop

1.

LItem := ltvProduto.Items.Add;

lDescricao := LItem.Objects.FindObjectT('Text1');

lPreco := LItem.Objects.FindObjectT('Text2');

lBarra := LItem.Objects.FindObjectT('Text4');

lImg := LItem.Objects.FindObjectT('Image3');

lDescricao.Text := DM.Produto.fieldbyname('prod_descricao').AsString;

LItem.Tag := DM.Produto.fieldbyname('prod_codigo').asinteger;

lPreco.Text := formatfloat('#,0.00', DM.Produto.fieldbyname('prod_precovenda1').asfloat);

lBarra.Text := DM.Produto.fieldbyname('pf_descricao').AsString;

2. 

with ltvProduto.Items.Add do

begin

    Data['Text1'] := DM.Produto.fieldbyname('prod_descricao').AsString;

    Data['Text2'] := formatfloat('#,0.00', DM.Produto.fieldbyname('prod_precovenda1').asfloat);

    Data['Text4'] := DM.Produto.fieldbyname('prod_codigo').AsString;

end;

My listview is like DynamicAppearence, how do I fill in the header?