Cambios para que compile el PAC de Comercio Digital con Delphi XE4

Varios cambios que tuve que hacer para que me compilara el ejemplo con
el PAC de Comercio Digital en Delphi XE4.

Además tuve que cambiar en la unidad sinautil la función GetTimeFromStr
como sigue

function GetTimeFromStr(Value: string): TDateTime;
var
x: integer;
fs: TFormatSettings;
begin
x := rpos(':', Value);
if (x > 0) and ((Length(Value) - x) > 2) then
Value := Copy(Value, 1, x + 2);
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, fs);
Value := ReplaceString(Value, ':', fs.TimeSeparator);
Result := -1;
try
Result := StrToTime(Value);
except
on Exception do ;
end;
end;

Y al final lo siguiente

var
n: integer;
fs: TFormatSettings;
begin
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, fs);
for n :=  1 to 12 do
begin
CustomMonthNames[n] := fs.ShortMonthNames[n];
MyMonthNames[0, n] := fs.ShortMonthNames[n];
end;
end.