Búsqueda en listbox

[david_uh]

hola a todos
tengo el siguiente problema:
tengo un listbox cargado con 10000 nombres de clientes y por cada entrada en la lista le he relacionado un ID de tipo integer este valor lo he almacenado de esta forma

while not ZListas.Eof do                //
        begin
            lis_clientes.Items.Add(ZListas.FieldByName('cliente').AsString + ^I +
                                   ZListas.FieldByName('Direccion').AsString);
            lis_clientes.Items.Objects[i] := pointer(ZListas.FieldByName('Id').AsInteger);
            inc(i);
            ZListas.Next;
        end;

pero ahora necesito recuperar enun Edit el nombre de un cliente y para ello cuento solo con su ID, es obvio que tendria que buscar el id dentro de la matriz objects[] de la lista pero me gustaria saber si existe otra forma ya que una búsquda sobre 10000 registros o más podría no ser eficiente

Gracias de antemano por cualquier alcance