dbgrid删除问题

使用这段代码的主要目的是通过鼠标单击选择dbgrid中一行完整的记录,通过点击删除按钮,实现删除数据库中的记录,可是运行后,数据库中的记录无法删除,运行时只显示
'请选择要删除的纪录',请高手指点!
数据库是sqlserver2000,用adoquery连接
procedure TForm1.N1Click(Sender: TObject);

begin
if dbgrid1.SelectedRows.CurrentRowSelected then
begin
if messagedlg('真的要删除吗？',mtconfirmation,[mbyes,mbcancel],0)=mryes
then
begin
form1.adoquery1.Delete;
end;
end
else
showmessage('请选择要删除的纪录!') ;

end;
----------------------------------------------