谁来帮我解决一个关于bigint类型的赋值问题？

[GZSYSTEM]

说明：
SQL数据表的字段类型为：bigint

delphi声明部份：
var JHD_ID:int64;
取值部份：
JHD_ID:=Adatasource.DataSet.FieldByName('ID').Value;
赋值部份：
方法1：
FieldByName('JHD_ID').value:=JHD_ID; //这样写可以编译，但在运行到这一句时报错。
方法2：
FieldByName('JHD_ID').AsInteger:=JHD_ID; //这样写可以编译和运行，但如果JHD_ID的值大于int的数据范围时就报错。

各位老师，请正确的方法应该也怎么样的？先谢谢大家了。

[feiba7288]

试下ParamByName('JHD_ID').AsInteger:=JHD_ID;

[feiba7288]

或者ParamByName('JHD_ID').Value:=JHD_ID;

[simonhehe]

--mssql2000
CREATE TABLE [dbo].[t1] (
	[aa] [bigint] NULL ,
	[bb] [int] NULL 
) ON [PRIMARY]
GO

var
  a : Int64;
begin
  a := 9223372036854775807;    //int64的最大值
  qry1.Append;
  qry1.FieldByName('aa').Value := a;
  qry1.FieldByName('bb').Value := 1234567890;
  qry1.Post;
  //D xe 运行通过
end;