怎么才能只修改选中的记录！！而不是全部都修改~~~

procedure Thzchangefrm.SpeedButton1Click(Sender: TObject);
begin
   if application.MessageBox('您确定要修改吗？','提示：',mb_yesno+mb_iconquestion)=idyes then
   begin
       datamod.adoq1.Close;
       datamod.adoq1.SQL.Clear;
       datamod.adoq1.SQL.Add('update hz_msg set hz_id='''+edit1.Text+''','
       +'hz_name='''+edit2.Text+''',hz_sex='''+combobox1.Text+''','
       +'hz_age='''+edit3.Text+''',hz_class='''+combobox2.Text+''','
       +'jb_class='''+combobox3.Text+''',ry_date='''+datetostr(rydate.Date)+''','
       +'cy_date='''+datetostr(cydate.Date)+''',fz_doc='''+edit4.Text+''','
       +'lx_name='''+edit5.Text+''',lx_phone='''+edit6.Text+''','
       +'lx_address='''+edit7.Text+''',re='''+memo1.Text+'''');
       datamod.adoq1.ExecSQL;
       application.MessageBox('修改成功！','提示：',mb_ok);
       datamod.adoq1.Close;
       datamod.adoq1.SQL.Clear;
       datamod.adoq1.SQL.Add('select * from hz_msg');
       datamod.adoq1.Open;
       datamod.adoq1.Last;
       close();
       end;
       {else
          begin
          Action:=CaNone;
          activeControl:=edit1;
          end; }如题！！还有最后注释掉的部分！！不注释的话运行出错！“incomptible types：'TbasicAction’ and ‘TCloseAction’”