¿Cómo puedo conectar dos ListBox de forma que si selecciono una se selecciona la otra

[nuri]

Teng el Delphi5 por lo tanto no me vale la propiedad count para Listbox pero me ha servido tu idea.
Simplemente he hecho:

Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
var i:integer;
begin
i:=ListBox1.ItemIndex;
Listbox2.ItemIndex:=i;
end;
procedure TForm1.ListBox2Click(Sender: TObject);
var i:integer;
begin
i:=ListBox2.ItemIndex;
Listbox1.ItemIndex:=i;
end;

Okis
Muchas gracias
Atentamente
Nuri