Перехват NtCreateFile и копирование файла на диск

[calypso]

Перехватчик для CreateFileW работает нормально,а с NtCreateFile не хочет копировать. Вот тело функции NewNtCreateFile:

    begin
      result:=TrueNtCreateFile(FileHandle, DesiredAccess, ObjectAttributes, IoStatusBlock, AllocationSize,
                              FileAttributes, ShareAccess, CreateDisposition, CreateOptions, EaBuffer, EaLength);
      UnhookCode(@TrueNtCreateFile);
      hFile1:=CreateFileW('C:\proverka.txt',GENERIC_READ,
                               FILE_SHARE_READ, nil, OPEN_ALWAYS, 0, 0);
     hFile2:=CreateFileW('C:\test.pak',GENERIC_WRITE,
                               0, nil, OPEN_ALWAYS, 0, 0);
        HookProc('ntdll.dll', 'NtCreateFile', @NewNtCreateFile, @TrueNtCreateFile);
        if (hFile1 =  INVALID_HANDLE_VALUE) or (hFile2=INVALID_HANDLE_VALUE) then exit;
        try
        text:= ObjectAttributes.ObjectName;
          buffer:=#13+#10;
          if text.Buffer='\??\C:\proverka.txt' then
           begin
          buff:=GetFileSize(hFile1,nil);
     SetFilePointer(hFile1, 0, nil, FILE_BEGIN);
     data:=VirtualAlloc(nil,buff,MEM_COMMIT or MEM_RESERVE,PAGE_READWRITE);
     ReadFile(hFile1,data^,buff,zapisano,nil);
     WriteFile(hFile2,data^,buff,zapisano,nil);
            end;
        finally
          CloseHandle(f);
        end;
      end;