[giantonti1801]

solucionado modificando

Código Delphi [-]
Str := TListItemText(AItem.Objects[i]).Text;