>>761　判らなくても

function MakeInt64(lo,Hi:Integer):int64;register; asm end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:=IntToHex( MakeInt64(1,3),16);
end;

みたいに使うといいよ