* Fixed AV when setting capacity to something smaller than count but larger than 0 (bug ID 24943)

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@25403 3ad0048d-3df7-0310-abae-a5850022a9f2