Трудности с файлом, проецируемым в память

var
  Form1: TForm1;
  hFile,hFileMap:THandle; pFile:PChar; Str,buff:string; i,Size:Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Str := ''; buff := '';
// Пункт 1
  hFile := CreateFile('D:\1.txt', GENERIC_READ OR GENERIC_WRITE, FILE_SHARE_READ OR FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if hFile = INVALID_HANDLE_VALUE then
    begin
      ShowMessageFmt('Ошибка %d при создании файла',[GetLastError]);
      exit;
    end;
//Пункт 2
  Size := GetFileSize(hFile,nil);  
//Пункт 3
  hFileMap := CreateFileMapping(hFile, nil, PAGE_READWRITE, 0, Size, nil);
  if hFileMap = INVALID_HANDLE_VALUE then
    begin
      ShowMessageFmt('Ошибка %d при создании объекта "файл, проецируемый в память"', [GetLastError]);
      CloseHandle(hFile);
      exit;
    end;
//Пункт 4
  pFile := MapViewOfFile(hFileMap, FILE_MAP_WRITE,0,0,0);
  if pFile =  nil then
    begin
      ShowMessageFmt('Ошибка %d при проецировании в память',[GetLastError]);
      CloseHandle(hFile); CloseHandle(hFileMap); exit;
    end;
  pFile[GetFileSize(hFile,nil)] := #0;
 
  i:=0;
//Пункт 5
  Str:= string(pFile);
 
//Пункт 6
  buff:= ReverseString(Str);
 
//Пункт 7
  Edit1.Text := buff;
 
//Пункт 8
  pFile := PChar(buff);
 
 
  UnMapViewOfFile(pFile);
  CloseHandle(hFile); CloseHandle(hFileMap);
 
end;

pbuff:PChar;

 for i:=1 to Length(buff) do
        begin
          pbuff := Addr(buff[i]);
          pFile[i-1] := pbuff^;
        end;

 for i:=1 to Length(buff) do
        begin
          pbuff := Addr(buff[i]);
          pFile[i-1] := pbuff^;
        end;

  Buff:= StringReplace(ReverseString(Str), #10#13, #13#10, [rfReplaceAll]);