trabajando con 2 listbox

[MaMu]

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

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.