Problema al comparar y seleccionar Listbox

[javier.m866]

No son Combobox, son ListBox lo que hice fuué sustituir el código para los ListBox Ejemplo:
with (Sender as ListBox) do
begin
ListBox1.ItemIndex:= ItemIndex;
ListBox2.ItemIndex:= ItemIndex;
ListBox3.ItemIndex:= ItemIndex;
ListBox4.ItemIndex:= ItemIndex;
end;
Pero me sale el siguiente error
[Error] Unit1.pas(46): Undeclared identifier: '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.

[ecfisa]

Hola Javier.

No son Combobox, son ListBox

Tenés razón me confundí , pero el funcionamiento, en este caso, es idéntico para ambos componentes.

Cuando agregues código, para dar más legibilidad, usá las etiquetas (TAG's):



Saludos.