OnClick Listbox Ten sam select indeks w dwoch listboxach

Siemka
Jak obsłużyć zdarzenie OnClick Listbox-a
tak że jak zaznaczymy Indekx w Listbox1 zaznaczy nam się ten sam **index w Listbox2 **
i na odwrót ?

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  ListBox2.ItemIndex := ListBox1.ItemIndex;
end;

Dzięki
To jeszcze jedno pytanko
jeżeli AListbox.Selected = True to wykananie dopiero poniższej procedury

procedure ListBoxItemDown(AListBox: TListBox);
var
   CurrIndex, LastIndex,i: Integer;
   begin
   with AListBox do
      begin
         CurrIndex := ItemIndex;
         LastIndex := Items.Count;
         if ItemIndex <> -1 then
            begin
               if CurrIndex + 1 < LastIndex then
                  begin
                     Items.Move(ItemIndex, (CurrIndex + 1));
                     ItemIndex := CurrIndex + 1;
                  end;
            end;
      end;
end;

ROZWIĄZANE Dzięki