TStrings fixed
While loops and scaling instead of weights