Hola juaarias.
No explicas mucho sobre el contenido de los combos, pero en principio sería:
En el evento OnClick de ListBox1:
Código Delphi
[-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
ListBox2.ItemIndex:= ListBox1.ItemIndex;
end;
En el evento OnClick de ListBox2:
Código Delphi
[-]
procedure TForm1.ListBox2Click(Sender: TObject);
begin
ListBox1.ItemIndex:= ListBox2.ItemIndex;
end;
Saludos.