delphi 中Tlistbox中得到选中的值，删除所选中的值，selected老是点不出来，找到了一个。

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;