#pas
procedure THIChangeFileSecurity._work_doSetFileSecurity;
var SecDescr: PSecurityDescriptor;
    fn:string;
    dt:TData; // <<====
begin
   dt := ReadData(_Data,_data_PSD,nil); // <<====
   fn := ReadString(_Data, _data_Filename, _prop_FileName); 
   SecDescr := PSecurityDescriptor(ToObject(dt)); // <<====
   if _IsObject(dt,PSD_GUID) then // <<====
    begin
      if not SetFileSecurity(PChar(fn), OWNER_SECURITY_INFORMATION or DACL_SECURITY_INFORMATION, SecDescr) then
        _hi_onEvent(_event_onError);
    end;
  _hi_onEvent(_event_onSetFileSecurity);  
end;

#pas
procedure THIChangeFileSecurity._work_doSetFileSecurity;
var SecDescr: PSecurityDescriptor;
    fn:string;
begin
   SecDescr := PSecurityDescriptor(ReadObject(_Data,_data_PSD,PSD_GUID));
   fn := ReadString(_Data, _data_Filename, _prop_FileName);
   if SecDescr <> nil then
    begin
      if not SetFileSecurity(PChar(fn), OWNER_SECURITY_INFORMATION or DACL_SECURITY_INFORMATION, SecDescr) then
        _hi_onEvent(_event_onError);
    end;
  _hi_onEvent(_event_onSetFileSecurity);  
end;