delph SQL查询有关问题，新手请问！多谢

delph SQL查询问题，新手请教！谢谢！
问题是这样的，仓库有些条码需要修改为指定的仓库。
在界面添加了两个Edit.一个Button。
Edit1 处由用户输入条码，
Edit2 处由用户输入指定的仓库。
点击Button按钮修改；比如用户需要修改123456的条码是laokuan仓库的；sql 语句是这样的：
update SPTMState set CKDM='laokuan' where SPTM=123456,
请问下Button处的代码要这么写？
procedure TForm1.Button1Click(Sender: TObject);
begin
begin
  if sametext(Edit1.Text, '') then
     showmessage('条码不能为空')
  else
    begin

（这里需要怎么写代码呢？）
         showmessage('条码设定成功，请再次扫描出库');
end;
end;
end;
end.

------解决方案--------------------
AdoQuery.Close ;
AdoQuery.Text :=  'update SPTMState set CKDM='+QuotedStr(Edit2.text)+' where SPTM='+ QuotedStr(Edit1.text) ;
AdoQuery.ExecSQL ;