我想在delphi中利用ADO组件实现以下的语句，请大虾指点一下。

 declare  @str1 varchar(13),@str2 varchar(13),@i int,@str3 int,@str4 int
 DECLARE thing_Cursor CURSOR FOR
 SELECT dcardno FROM kcard_items_emptycard where dticketno='0000EC201103260001'
 OPEN thing_Cursor
 FETCH NEXT FROM thing_Cursor into @str1
 
 WHILE @@FETCH_STATUS = 0
 BEGIN
   
    set @i=1
 set @str2='8000'+@str1   
  set @str3=0
     set @str4=0
     while @i<13
      begin
        if @i % 2 =0
          set @str3=@str3+cast(substring(@str2,@i,1) as int)
           else
          set @str4=@str4+cast(substring(@str2,@i,1) as int)
        set @i=@i+1
      end
    set @str2=@str2+substring(cast(@str3*7+@str4*9 as varchar(9)),len(cast(@str3*7+@str4*9 as varchar(9))),1)
    update kcard_items_emptycard set dcardsbh=@str2 where dcardno=@str1  
    FETCH NEXT FROM thing_Cursor into @str1
 END
 CLOSE thing_Cursor
 DEALLOCATE thing_Cursor

？！？

深圳海上皇宫起诉政府行政违法可能索赔上亿http://www.  2011年04月10日02:25  新民网
 资料图

 郭奎章


　　《深圳再次强拆“海上皇宫”》追踪

　　称索赔或达亿元；龙岗区农林渔业局称暂未接到法院传票

1. 弄成个存储过程，用Ap调用
2. AQ.close;
   AQ.sql.text := '...';
   AQ.ExecSQL;