Hola CarlosAlberto.
Asigná este procedimiento al evento
OnClick de los tres ListBox:
Código Delphi
[-]
procedure TForm1.ListBoxClick(Sender: TObject);
begin
with (Sender as TListBox) do
begin
ListBox1.ItemIndex:= ItemIndex;
ListBox2.ItemIndex:= ItemIndex;
ListBox3.ItemIndex:= ItemIndex;
end;
end;
Si bién hay redundancia en la asignación de la propiedad
ItemIndex del ListBox que genera el evento, compensa con más simplicidad que hacer una evaluación en el evento
OnClick de cada ListBox.
Un saludo.