Caracteres Chino Delphi Xe2

[dison]

Im getting chinese character in delphi XE2 楤潳䁮灤潳瑦慷敲⹳潣m

*I have this to fill a listbox*
listbox1.Items.AddObject( UpperCase(trim(FieldByName('name').AsString)) , TObject(LongInt(NewStr(trim(FieldByName('email').AsString)))) );

and this line to get the email despending of the ItemIndex

sValue:= PString(listbox1.Items.Objects[listbox1.ItemIndex])^ +','

In delphi 2010 ALL IS FINE but in XE2 svalue is 楤潳䁮灤潳瑦慷敲⹳潣m

Please help me
Thansk