update sql ile ilgili

[droxee]

s.a.
firebird veritabanım ve delphi7 kullanıyorum sıkıntım şu iki adet table ım var bunlar tbl_anakart ve tbl_bilgisayar

tbl_anakart tbl_bilgisayar
----------------- --------------------
anakart_kod bilg_ad
.. anakart_kod
.. islemci_kod
.. ..
konum ..
durum
not

bilgisayar formumda kaydet butonuna bastığımda:


procedure Tfrm_bilgisayar.BTN_KAYDET_Click(Sender: TObject);
begin
RzComboBox1.Text:='';
if RzDBEdit2.Field.IsNull then /// anakart_kodunu tutan edit
begin
with DataModule_.IBQuery1 do
begin
close;
sql.clear;
sql.add('update TBL_ANAKART set KONUM=:KNM,DURUM=:DRM where anakart_kod=:kod');
parambyname('knm').value := frm_Bilgisayar.rzdbedit1.text; /// bilgisayar_adını tutan edit
parambyname('kod').value := frm_Bilgisayar.rzdbedit2.text; /// anakart_kodunu tutan edit
parambyname('drm').value := frm_Bilgisayar.FaalEdit.text; /// durum değerini tutan edit
execsql;
end;
end
else begin
with DataModule_.IBQuery1 do
begin
close;
sql.clear;
sql.add('update TBL_ANAKART set KONUM=:KNM where anakart_kod=:kod');
parambyname('knm').value := DataModule_.IBTable_AnakartKONUM.IsNull;
parambyname('kod').value := frm_Bilgisayar.rzdbedit2.text;
execsql;
end;
end;
DataModule_.IBTable_Bilgisayar.Post;
BTN_YENI_PERSONEL_.Enabled:=true;
BTN_KAYDET_.Enabled:=false;
BTN_IPTAL_.Enabled:=false;
BTN_SIL_.Enabled:=true;
LEDDISPLAY.Caption:=IntToStr(DataModule_.IBTable_Bilgisayar.RecordCount);
end;

kod çalışıyor bilgisayar formundaki kaydet tuşuna basılınca tbl_anakart daki konum field ına bilgisayaradı yazıyor eğer konum field ında bir veri varsa onun konum fieldını boşaltmak istiyorum skıntılı kısım kırmızı yazdığım kısım olmalı sanırım biraz karışık anlattım galiba kısaca sorunum bu yardımlarınızı bekliyorum delphi dostları ...