:解决马上散分:怎么取到ListBox中选中的值及怎么删除ListBox中多余的值

在线等:解决马上散分:如何取到ListBox中选中的值及如何删除ListBox中多余的值
如问题,应该不难吧

[解决办法]
procedure TForm1.Add1Click(Sender: TObject);
var
i:Integer;
begin
for i :=0 to ListBox1.Count-1 do
begin
if ListBox1.Selected[i] then
ListBox2.Items.Add(ListBox1.Items.Strings[i]);
end;
ListBox1.DeleteSelected;//增加后删除所选的记录
end;