为什么用TDataBase建交临时SQL连接，连接成功后，使用TStoredProcr控件执行存储过程要报General SQL error.错误喃

我放一TDataBase控件，双击设DataBaseName为abc，设DriverName为MSSQL，然后按defaults后，把参数改为如下
DATABASE NAME=drink
SERVER NAME=ciserver
USER NAME=sa
OPEN MODE=READ/WRITE
SCHEMA CACHE SIZE=8
BLOB EDIT LOGGING=
LANGDRIVER=
SQLQRYMODE=SERVER
SQLPASSTHRU MODE=SHARED AUTOCOMMIT
DATE MODE=0
SCHEMA CACHE TIME=-1
MAX QUERY TIME=300
MAX ROWS=-1
BATCH COUNT=200
ENABLE SCHEMA CACHE=FALSE
SCHEMA CACHE DIR=
HOST NAME=
APPLICATION NAME=
NATIONAL LANG NAME=
ENABLE BCD=FALSE
TDS PACKET SIZE=4096
BLOBS TO CACHE=64
BLOB SIZE=32
PASSWORD=放如一个TStoredProc控件，DataBaseName设为TDataBase的DataBaseName，然后增加相应的代码
procedure TForm2.adfdf;
var
  RETURN_VALUE_Param : TParam;
  Call_Param : TParam;
  Flag_Param : TParam;
begin
  RETURN_VALUE_Param := nil;
  Call_Param := nil;
  Flag_Param := nil;
  try
    With StoredProc1 do
    begin
    StoredProcName := 'SetSta';    RETURN_VALUE_Param := TParam.Create(Params,ptResult);
    RETURN_VALUE_Param.Name := 'RETURN_VALUE';
    RETURN_VALUE_Param.DataType := ftInteger;
    Call_Param := TParam.Create(Params,ptInput);
    Call_Param.Name := 'Callfh';
    Call_Param.DataType := ftString;
    Call_Param.Value := '101';
    Flag_Param := TParam.Create(Params, ptInput);
    Flag_Param.Name := 'SetFlag';
    Flag_Param.DataType := ftInteger;
    Flag_Param.Value := 1;    Prepare;
    ExecProc;
      
    Close;
   end;
    RETURN_VALUE_Param.Free;
    Call_Param.Free;
    Flag_Param.Free;
  except
    if RETURN_VALUE_Param <> nil then
    begin
      RETURN_VALUE_Param.Free;
    end;
    if Call_Param <> nil then
    begin
      Call_Param.Free;
    end;
    if Flag_Param <> nil then
    begin
      Flag_Param.Free;
    end;
  end;
end;再程序起动过程中打开TDataBase，程序启动后，运行上面的过程就报错，但如果用TQuery控件设SQL为
exec gb_SetClientSta ''101'',1      就没问题，请高手帮忙解答一下为什么呢？