jak przeniesc?

mam problem.jak przenies z jednego list boxa do drugiego pozycje np. kolo?
ale tak by po przeniesieniu do 2 listboxa z 1 listboxa zniknela.acha i gdy sie ja przniesie zeby nie mozna bylo przenies tej pozycji jeszcze raz.
z gory dzieki

czy mi sie wydaje czy calkiem niedawo byl identyczny post z identycnym problemem z przykladem "rower"??--W poszukiwaniu rozwiązania problemu, najbardziej pomocna jest znajomość odpowiedzi.

To ja napisze poraz kolejny:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox2.Items.IndexOf(ListBox1.Items.strings[ListBox1.ItemIndex]) &lt 0 then
begin
ListBox2.Items.Add(ListBox1.Items.strings[ListBox1.ItemIndex]);
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
end;

Jeżeli coś tu jest nie jasne to napisz--__________________________________
Pozdrawiam...
piechnat