if messagebox(handle,pchar('要删除'+adoquery1.FieldByName('nname').AsString+'用户吗?'),'提示',1+32)=1 then
if MessageBox(pchar('要删除'+adoquery1.FieldByName('nname').AsString+'用户吗?'),'提示',1+32)=1 then

这两句只在handle这里不一样．一个有一个没有．
有和没有都可以实现成功
想问问这个头有什么用．