Файл проецируемый в память

Код (Text):

1. procedure First;
2. begin
3. DataServer:=CreateFileMapping(INVALID_HANDLE_VALUE,nil,PAGE_READWRITE,0,1024*32,'DataServer');
4. PServer:= MapViewOfFile(DataServer,FILE_MAP_READ ,0,0,1024*32);
5. end;
6. procedure two;
7. begin
8.   DataServer1:=OpenFileMapping(PAGE_READWRITE,false,'DataServer');
9.  PWrite:=MapViewOfFile(DataServer1,FILE_MAP_WRITE,0,0,1024*32);
10. end;
11. begin
12.  
13. first;
14. two;
15. end.

Вопрос: почему PWrite nil?

 

все уже розобрался..Открывать через OpenFileMapping надо было с флагом FILE_MAP_WRITE , но не PAGE_READWRITЕ .. .