Hola...
La condición debería ser:
Código Delphi
[-]
if BrandsLst.Count > 0 then
BrandsLst.Clear
Ahora, por tu código, no veo la razón del por que te da el error mencionado. ¿Ya probaste haciendo un seguimiento línea a línea de tú código (Tecla
F7)?
Saludos...