如何从右键弹出菜单中清空删除数据加清空前提问确定

procedure TForm3.N2Click(Sender: TObject);
begin
try
with TADOQuery.Create(nil) do
begin
Connection := frmDataPool.ADOConnection1;
if messagedlg('删除所有记录?',mtconfirmation,[mbyes,mbno],0)<>mryes then
Abort
else
begin
SQL.Text := 'DELETE FROM 工资表';
ExecSQL;
end;
//防止程序假死
Application.ProcessMessages;
//刷新下显示
frmDataPool.qry工资表.Close;
frmDataPool.qry工资表.Open;

end;
finally
TADOQuery.Create(nil).Free;
end;