[supernewbie]

вот так робит , но это явно какое-то извращение

procedure Test(const i:Int64); stdcall;
begin
  ShowMessage(inttostr(i));
end;

var
  i:Int64;
  a:array [0..1] of integer;
  i1,i2:integer;
begin
  i:=874987897987;
  Move(i,a,8);
  i1:=a[0];
  i2:=a[1];
  asm
  push i2
  push i1
  call test
  end;
end.