想写两个函数.1,执行SQL语句的公共函数.2,执行存储过程的公共函数

Question

1,执行SQL语句的公共函数.要求用AdoConnection,要带事务处理的.
  调用形式如下:
  function myExecSQL(strSQL:string;var RecordAffected:integer;var ErrStr:string):integer;
  参数:strSQL要运行的SQL语句,RecordAffected影响记录的条数.ErrStr发生错误时的信息返回
  //哦,其实我并不是不会写这个函数,就是因为它写在Dll中,不好调试,我运行第一次是可以的.再运行几次就不行了.2,执行存储过程的公共函数
  这个嘛:p是没有时间写了,大家帮个忙吧
  调用形式如下:myExecSP(strSPName:string;InputCount:integer;InputPara:variant;OutputCount:integer;var OutputPara:variant;var ErrStr:string):integer
  参数:strSPName存储过程名,InputCount输入的参数个,InputPara输入的参数数组,OutputCount返回的参数个数,OutputPara返回的参数,ErrStr发生错误时的信息返回//谢谢啦,求源码,可以发到//注:本人delphi水平不高,代码请多加注释.