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