Busqueda recursiva en un ListView

[elrayo76]

Gente, pude hacer lo que necesitaba. Para el que le sirva acá dejo la función que he implementado.

El parámetro de la posición que saco a fuera de la función es proque luego selecciono la fila que me interesa con lo encontrado. El resultado de la función es para indicar si se encontró o no el dato buscado.

Código Delphi [-]
function BuscarEnLista(const aLista: ListView; const aColumna: Integer; const aValor: String; var aPosicion: Integer): Boolean; overload;
var
  i: Integer;
  intItem: Integer;

begin
  i := 0;
  intItem := -1;

  while (i < aLista.items.Count) do
  begin
    if (aLista.Items[i].SubItems[aColumna].Text = aValor) and (StrToInt(aLista.Items[i].SubItems[_lv_Cantidad].Text) <> 0) then
    begin
      intItem := i;
      i := aLista.Items.Count;
    end;

    Inc(i);
  end;

  aPosicion := intItem;
  Result := (intItem <> -1);
end;

Saludos,
El Rayo