为什么删除老出错 个位老大帮忙看看那错了

<P>procedure TForm1.N10Click(Sender: TObject);//删除
begin
Lyr:=map1.Layers.Item['信息点层'];
lyr.KeyField:='Id';
if lyr.Selection.Count = 0 then
  application.MessageBox('请选择信息点,再执行操作!','提示',mb_ok)
else
  begin</P>
<P>       InfoFeature:=nil;
       InfoFeature:=lyr.Selection._Item(1);
       Lyr.DeleteFeature(InfoFeature);//删除选择的图元
       Foundid:=InfoFeature.KeyValue;
       frmdm.DataModule1.ADOQuery1.close;//删除相应的图元数据
       frmdm.DataModule1.ADOQuery1.Connection:=frmdm.DataModule1.ADOConnection1;
       frmdm.DataModule1.ADOQuery1.SQL.Clear;
       strsql:=format('delete from 信息点表 where id=%s',[Foundid]);
       frmdm.DataModule1.ADOQuery1.SQL.Add(strsql);
       frmdm.DataModule1.ADOQuery1.Open;
  END
end;</P><img src="images/post/smile/dvbbs/em02.gif" />