Código Delphi [-]showmessage( inttostr(listbox1.Items.Add('Valor')))
showmessage( inttostr(listbox1.Items.Add('Valor')))