使用TClientDataSet调用存储过程,只能返回OleVariant类型的值?我想得到存储过程执行后返回的整型值怎么办?(100分)

调用存储过程的代码如下:
function TEquip.recordLog:OleVariant;
var
LogCorrect:Integer;
begin
//theDm是一个数据模块对象,其中有ADOConnection1,ADOStoredProc1和DataSetProvider1
with theDm.ADOStoredProc1 do

begin
close;
Parameters.Clear;
ProcedureName:='RecLog';
Parameters.AddParameter.Name:='@Code';
Parameters[0].DataType:=ftString;
Parameters[0].Value:='AAAA';
Parameters.AddParameter.Name:='@Content';
Parameters[1].DataType:=ftWideString;
Parameters[1].Value:='test hehehe';
Parameters.AddParameter.Name:='@UserName';
Parameters[2].DataType:=ftWideString;
Parameters[2].Value:='hdflurry';
Prepared:=true;
//ExecProc;
//如果加上此句则服务器端的存储过程就会执行两遍
LogCorrect:=Fields[0].AsInteger ;
//我想得到此存储过程执行后返回的整型值 LogCorrect (值为0或1) ,但如果加上这句的话就出错.错误提示为"List index out of bounds(0)",如果去掉这句可执行.
end;
result:=thedm.DataSetProvider1.data;
end;
哪位可解?
还有一个现象,如果我在上面的代码里用了ExecProc执行存储过程,刚存储过程在服务器
端执行了两遍.如果去掉ExecProc刚执行正常.请问为什么??

我也是初学者，发现存储过程的返回值总是不能接收
实验了一个最小的系统，在一个窗体内放ado过程->提供者->客户端dataset，然后实验，发现这次过程的返回值接受的时候不异常了，但是，总是0[?]

LogCorrect:=Fields[0].AsInteger ;换成LogCorrect:=Fields.Fields[0].AsInteger ;再试呢。
另外Prepared:=true;是不是就已经把参数提交，执行了存储过程了吧。我通常都是用QUERY控件执行存储过程的。

用參數返回結果,你要設定參數字段的paramtype為ptresult或ptoutput