Problema al comparar y seleccionar Listbox

[javier.m866]

Ya está resuelto, gracias. Sólo tenía que poner lo siguiente:
with (Sender as TListBox) do
begin
ListBox1.ItemIndex:= ItemIndex;
ListBox2.ItemIndex:= ItemIndex;
ListBox3.ItemIndex:= ItemIndex;
ListBox4.ItemIndex:= ItemIndex;
end;
Tal y cómo lo habías dicho. Muchas gracias, ahora intentaré eliminar algún item, espero que se eliminen de igual forma. Muchas gracias por su ayuda.