[Delphi] Listbox

Mam problem.Zrobiłem program w którym mam listboxa i gdy przenosze z list boxa pozycje to ona przeniesie sie do innegi listboxa ale tez zostaje w pierwszym listboxie
(Chciałbym zeby gdy przeniose z 1 listboxa wybrana pozycje do drugiego to ona z pierwszego zniknęła a reszta podwyzszyla sie na jej miejsce )Troche zakrecone ale nie wiem jak to inaczej napisac.

Uzyj ListBox.Delete(IndexPrzenoszony)--W poszukiwaniu rozwiązania problemu, najbardziej pomocna jest znajomość odpowiedzi.