Umstellung D7 -> XE4

[EgonHugeist]

function ScanNumber(Value, FormatChars: String; var I: Integer): Boolean;
begin
Result := True;
I := I + 1;
while (Result = True) and (I <= Length(Value)) do
if CharInSet(Value[I], ['0'..'9']) then
Inc(I)
else if Value[I] = FormatSettings.ThousandSeparator then
Inc(i)
else if (Pos(Value[I], FormatChars) <> 0) then
Inc(i)
else if Value[I] = FormatSettings.DecimalSeparator then
Result := ScanDecimal(Value, FormatChars, I)
else Result := False;
end;