BuildExplicitAccessWithName 问题？

Question

uses accctrl,aclapi
......procedure TForm1.Button1Click(Sender: TObject);
var
  ea:EXPLICIT_ACCESS;
  pDacl:PACL;
begin
  ZeroMemory(@ea,sizeof(EXPLICIT_ACCESS));
  BuildExplicitAccessWithName(@ea,'Administrator',
    KEY_ALL_ACCESS,     // type of access
    SET_ACCESS,      // access mode
    SUB_CONTAINERS_AND_OBJECTS_INHERIT); 
end;
上面的代码在Delphi里一执行就报错误，事实上上面的代码在VC60里是正常的，有谁知道原因？谢谢。