Hola gsilvei,
Primero (y aunque no es propio de mí), te pido que eches un vistazo a la
guía de estilo. (es que me ha quedado poco claro lo que pedías).
Si pides lo que me parece que pides, solo tienes que colocar este código en el evento OnClick del ListBox2:
Código Delphi
[-]
Procedure TForm1.ListBox2Click(Sender: TObject);
begin
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(ListBox2.Items[ListBox2.ItemIndex]);
end;
Sencillamente lo que hace es buscar la posición del primer Item del ListBox1 que concuerda con el Item seleccionado del ListBox2
Pero ten en cuenta que como en el ListBox1 hay Items repetidos, se seleccionará el primero de todos ellos.
Espero que te sirva de ayuda
Hasta otra
vbmenu_register("postmenu_156623", true);