自己写一个过程吧
function GetDBGridCell(const i, j: integer; ADBGrid: TDBgrid;
var r: variant):boolean;
begin
with adbgrid.DataSource.DataSet do
begin
if not active then
result:=false
else if RecordCount<i then
result:=false
else
begin
first;
MoveBy(i);
r:=fields[j].value;
result:=true;
end;
end;
end;