Código Delphi [-] sValue:= PAnsiChar( PString(listbox1.Items.Objects[listbox1.ItemIndex])^ +',' );
sValue:= PAnsiChar( PString(listbox1.Items.Objects[listbox1.ItemIndex])^ +',' );