폐기를 하여서 수량을 줄이는 부분인데 에러가 나옵니다...

이부분을 읽어보시고 도움을 좀 주세여..........



procedure Tbiso_thr.Button1Click(Sender: TObject);

var

boyu : Integer;

begin

boyu := su - StrToInt(Edit3.Text);

if biso_con.RadioGroup1.ItemIndex = 0 then

begin

with Query1 do

begin

close;

sql.clear;

sql.add('update bipum_koan set boyu=:boyu where bk_key=:cont_key');

ParambyName('boyu').AsString := InttoStr(boyu);

ParambyName('cont_key').AsInteger := biso_cont.cont_key;

execsql;

end;

with Query1 do

begin

close;

sql.clear;

sql.add('select * from bipum_ss');

open;

insert;

fieldbyname('name').asstring:=edit1.text;

fieldbyname('date').asstring:=edit4.text+ edit5.text+ edit6.text;

fieldbyname('support').asstring:=edit7.text;

fieldbyname('bigo').asstring:=edit8.text;

fieldbyname('kind').asstring:='폐기';

post;

applyupdates;

end;