アセンブラ関数にすれば　本体書かずに

function MakeInt64(lo,Hi:Integer):int64;asm end;