Strange behaviour in a for downto loop

Question

Hi I use a downto loop often in Delphi (7) without any problems but the following code hangs at the ebd of the loop, It is part of a strings sort routine where delimited add