當執行到   edit1.Text := usr.Department;  這一行會出現 "在快取記憶體中找不到目錄的內容" 的錯誤訊息    <textarea class="delphi" rows="10" cols="60" name="code"> Procedure TfrmUser.trUserChange(Sender: TObject; Node: TTreeNode); var usr : IAdsUser; flags : integer; begin if Node = nil then Exit; if FUseOpenObject then ADsOpenObject('WinNT://' FDomain '/' Node.Text, FUserName, FPassword, 1, IADsUser, usr) else ADsGetObject('WinNT://' FDomain '/' Node.Text, IADsUser, usr); Assert(usr <> nil); edtUserName.Text := node.Text; edtFullName.Text := usr.FullName; edtDescription.Text := usr.Description; edit1.Text := usr.Department; flags := usr.Get('userFlags'); chbChangeAtNextLogon.Checked := usr.Get('PasswordExpired'); chbCannotChangePass.Checked := (flags AND ADS_UF_PASSWD_CANT_CHANGE)<>0; chbPassNeverExpires.Checked := (flags and ADS_UF_DONT_EXPIRE_PASSWD)<>0; chbAcctDisabled.Checked := usr.AccountDisabled; chbAcctLockedOut.Checked := usr.IsAccountLocked; EnumGroups( usr ); //usr._Release; end; </textarea>