我是个sql新手，想用SQL对游标所在的记录进行修改和删除，以下代码错在哪里。

procedure TForm1.Button4Click(Sender: TObject);
begin
  query1.sql.clear;
  query1.sql.add(' Declare @CustId Int ');
  query1.sql.add(' Declare @Discount Dec(5,3) ');
  query1.sql.add(' Declare CustCursor Cursor For ');
  query1.sql.add(' Select CustId,Discount ');
  query1.sql.add(' From Customer ');
  query1.sql.add(' Order by CustId ');
  query1.sql.add(' For Update of Discount ');
  query1.sql.add(' Open CustCursor ');
  query1.sql.add(' Fetch Next ');
  query1.sql.add(' From CustCursor ');
  query1.sql.add(' Into @CustId,@Discount ');
  query1.sql.add(' If (@@Fetch_Status=0) begin ');
  query1.sql.add(' If (@Discount=0.0) begin ');
  query1.sql.add(' Delete From Customer ');
  query1.sql.add(' Where Current of CustCursor ');
  query1.sql.add(' end ');
  query1.sql.add(' Else if (@Discount>.5) Begin ');
  query1.sql.add(' Update Customer ');
  query1.sql.add(' Set Discount=.5 ');
  query1.sql.add(' Where Current of CustCursor ');
  query1.sql.add(' End ');
  query1.sql.add(' End ');
  query1.sql.add(' Close CustCursor ');
  query1.sql.add(' Deallocate CustCursor ');
  query1.open;
end;