hex wert subtrahieren

[nimmy]

hallo zusammen,

ich möchte den einen hex wert ($04000000) vom anderen ($07FFFFFF) subtrahieren. den neuen wert lasse ich mir zur probe ausgeben:
log('range total: ' + '$' + (Format('%.8x',[strtoint64('$' + inttohex(((StrToInt64('$07FFFFFF') - StrToInt64('$04000000')) div 2), 8))]))); die ausgabe im memofeld erstaunt mich:
$01FFFFFF

während calc.exe es richtig macht:
$03FFFFFF

inttohex sieht so aus:

Delphi-Quellcode:

function StrToHex(S:string): string;
var
  i: byte; //Attention: max 255 characters, should be enough
begin
  Result:= '';
  for i := 1 to length (S) do
    Result := Result + IntToHex(ord(S[i]), 2);
end;

ich blicks nicht, was mache ich falsch? für jede hilfe bin ich dankbar.

beste grüße,

thomas