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