數據庫使用MSSQL固定情況下調用存儲過程

//換了數據庫後臺就肯定失敗
function   MaxVal(TableName:   string)   :   integer;  
  var  
  ADOQMax:TADOQuery;  
  begin  
  ADOQMax   :=   TADOQuery.Create(nil);  
  ADOQMax.ConnectionString:=connstr;  
  with   ADOQMax   do  
        begin  
            //取編號的最大值  
              Close;  
              SQL.Clear;  
              SQL.Add('declare   @GetMax   int'   +   #13);  
              SQL.Add('exec   @GetMax   =   SET_MAX   '+''''+TableName+''''+','+'1'+#13);  
              SQL.Add('select   @GetMax   as   fname');  
              Open;  
              MaxVal   :=   FieldByName('fname').AsInteger;  
   
        end;  
  end;