2 x ListBox + wyszukiwanie + usuwanie

Witam, nie wiem jak zrobic cosik takiego: w taki sposob wyszukuje sobie wspolnych elementow z dwoch listboxow:

procedure TOdleglosciForm.uliceCExit(Sender: TObject);
  var
    countPostoje,countKolej : integer;
  begin
    for countPostoje := 0 to pred(postojeListBox.Items.Count) do
      for countKolej := 0 to pred(kolejListBox.Items.Count) do
        if PostojeListBox.Items[countPostoje] = kolejListBox.Items[countKolej] then
          begin
            postojeListBox.Selected[countPostoje] :=true;
            postojeListBox.DeleteSelected;
          end;
  end;

I jak widac znalezione elementy po kolei zaznaczam i nastepnie chcialbym je usuwac , wszystko idzie sprawnie az do samego konca, bo wyrzuca mi ze index jest poza lista... dokladnie wyrzuca sie na tej linii
<delphi
if PostojeListBox.Items[countPostoje] = kolejListBox.Items[countKolej] then
</delphi>
czy moze ktos mi pomoc...

nie idź w pętli od początku listboxa tylko od końca

for i := ListBox.Items.Count -1 downto 0 do

albo od wartości count odejmij jeszcze ilość usuniętych

dzieki Ktos, dziala w 100%