if messagebox(handle,pchar('要删除'+adoquery1.FieldByName('nname').AsString+'用户吗?'),'提示',1+32)=1then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='delete from dl where nid ='+adoquery1.FieldValues['nid'];
adoquery1.ExecSQL;
adoquery1.Close;
adoquery1.Open;
end;

运行的时候老是提示找不到nid字段