Oops. aDataToFree is the first argument.
SetLength() isn't the same as SetCapacity().