Делфи. 2 события

[Kiss_of_the_rain]

Делфи. Два списка. По щелчку мыши - копирование элемента из первого списка во второй. Есть процедура TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer), которая позволяет мышкой перетаскивать элемент из первого списка во второй.
При перетаскивании мышкой во второй список выбранный элемент создается 2 раза (срабатывают оба события). Как решить проблему?

procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
       ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);
       ShowMessage(ListBox1.Items[ListBox1.ItemIndex]+'  добавлен в список');
end;


procedure TForm1.ListBox1Click(Sender: TObject);
begin
  ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);
end;

Так, после перемещения элемента мышкой - больше не работает перемещение по простому нажатию кнопки мыши.

procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
       flag2:=true;
       ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);
       ShowMessage(ListBox1.Items[ListBox1.ItemIndex]+'  добавлен в список'); 


procedure TForm1.ListBox1Click(Sender: TObject);
begin
  if (flag2=false) then
 ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);

end;