delphi 求值问题(50分)

//如果有相同的那么新增一条记录，把原来的rkcp_zs+edit6的值=新增记录的总数
ADOquery4.Close;
ADOquery4.SQL.Clear;
ADOquery4.SQL.Text:='select * from cprk where rkcp_name=:edit1 ';
ADOquery4.Parameters.ParamByName('edit1').Value:=edit1.Text;
ADOquery4.Open;
if not ADOquery4.Eof then
begin
ADOquery4.Close;
ADOquery4.SQL.Clear;
ADOquery4.SQL.Add('insert into cprk (rkcp_name,rkcp_gg,rkcp_xh,rkcp_bh,rkcp_mey,rkcp_sl,rkcp_zs) values
('''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+edit5.Text+''','''+edit6.Text+''') ');
ADOquery4.ExecSQL;
end
else
//如果没有相同的，那么就创建一条新的记录，并且：（假设rkcp_zs的值为0）那么rkcp_zs=edit6的值
ADOquery4.Close;
ADOquery4.SQL.Clear;
ADOquery4.SQL.Add('insert into cprk (rkcp_name,rkcp_gg,rkcp_xh,rkcp_bh,rkcp_mey,rkcp_sl) values
('''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+edit5.Text+''','''+edit6.Text+''') ');
ADOquery4.ExecSQL;
end;

按上面的代码，这个求和的SQL代码应该怎么写？ rkcp_zs=rkcp_sl+edit6 的代码怎么写？

insert into cprk (rkcp_name,rkcp_gg,rkcp_xh,rkcp_bh,rkcp_mey,rkcp_sl,rkcp_zs)
select :edt1, : edt2......,sum(rkcp_sl)+:edt6
from cprk
where rkcp_name=:edit1