Marco,
Has inicializado cVal con algun valor ?, por ejemplo:
local cVal := "One"
Te hemos enviado por email la Clase TListbox corregida. Solo tienes que compilarla y enlazarla como un PRG más de tu aplicación. Si no sabes como hacer esto, te daremos instrucciones más detalladas