Por las dudas te lo dejo, por ahi te sirve, si lo que necesitas es tener los 4 ListBox sincronizados, es decir, que trabajen los 4 con el clic del primero:
Suponiendo que los nombres sean ListBox1, ListBox2.. 3 y 4 basta con que pongas éste código en el OnClick de todos los ListBox (podes meterlo sólo en la primera y al resto de ListBox le asignas el OnClick de la primera). En cualquier ListBox que hagas clic, se recorren los 4 o mas ListBox al unísono, como bailarines bien sincronizados
Código:
procedure TForm1.ListBox1Click(Sender: TObject);
var
n:byte;
begin
for n:=2 to 4 do
begin
(FindComponent('ListBox'+IntToStr(n))as TListBox).ItemIndex:=
(Sender as TListBox).ItemIndex;
end;
end;
Saludos.
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;