var
  I :integer ;
begin
   for I := 0 to ListBox1.Items .count-1do
   begin
     if ListBox1.Selected[i] then
     if ListBox2.Items.IndexOf (ListBox1.items[i])<0 then
     ListBox2.Items.Add (ListBox1.items[i]);
   end ;
end;