anchor.diff:    strlist : array of WideString;
     ReturnedSurface : PSDL_Surface;
     BltRect : TSDL_Rect;
  +
   begin
     PrepareFont;
  +
  +  // Arbitrarily set the length of our dynamically grown arrays to ZERO, per the spec...
  +  SetLength(strlist, 0);
   
     // Do an initial check to see if it already fits
     case FRenderType of
  
positive.code:       i := Length( strChopped );
        while ( i <> 0 ) do
        begin
          if ( string( strChopped[ i ] ) <> ' ' ) and ( Integer( string( strChopped[ i ] ) ) <> 13 ) then
            dec( i )
          else
          begin
  
negative.code:       i := Length( strChopped );
        while ( i <> 0 ) do
        begin
          if ( string( strChopped[ i ] ) <> ' ' ) and ( StrToInt( string( strChopped[ i ] ) ) <> 13 ) then
            dec( i )
          else
          begin
  