delphi+mo删除操作代码(50分)

procedure TForm1.DeleteClick(Sender: TObject);
var
recset :IMORecordSet;
lyrs :IMOLayers;
lyr :IMOMapLayer;
shp :IMOPolygon;
flds :IMOFields;
ans :Variant;
begin

lyrs :=Map1.Layers;
lyr :=IMOMapLayer(CreateOleObject('MapObjects2.MapLayer'));
lyr :=IMOMapLayer(lyrs.Item('lll'));
recset :=lyr.Records;
recset.MoveFirst;
flds :=IMOFields(recset.Fields);
shp :=IMOPolygon(CreateOleObject('MapObjects2.Polygon'));
shp :=IMOPolygon(IDispatch(flds.Item('shape').value));
Map1.FlashShape(shp,3);
ans :=MessageBox(HANDLE,'确定删除此项记录么？','友情提示!',MB_YesNo)
if (ans=IDYes)then

begin

if recset.Updatable then

begin

recset.Edit;
recset.Delete;
recset.MoveNext;
recset.StopEditing;
Map1.Refresh;
end;

end
else

ShowMessage('记录集没有更新');
end;

即使点击“确定”，记录集同样没有被删除
大哥大姐，帮帮小弟吧