After changed ThousandSeparator to FormatSettings.ThousandSeparator ...
compiled Ok in Delphi XE5
when run , got an error in UBlockChain.pas
if length(Result)<>32 then begin
raise Exception.Create('TargetFromCompact result length<>32 '+inttostr(Length(Result)));
end;
after delete the code, application ran Ok.