[marcoszorrilla]

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
Listbox2.Items.Add(listbox1.items[listbox1.itemindex]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Listbox2.Items.Delete(listbox2.itemindex);
end;

Un Saludo.