Listbox ¿cómo señalar?

[ecfisa]

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.