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字段

检查你的表。

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;

adoquery1.FieldValues['nid'] 這是你的條件和你用來做刪除動作的ADOQUERY1是一個元件.
你在做刪除動作時先是CLOSE了之前你查出的數據並CLEAR掉SELECT語句寫成DELETE語句,而你
的刪除條件已經CLOSE了當然就找不到NID字段了.
所以你的SELECT和DELETE要用不同的元件來處理.