FileMapping. Работа с большим количеством страниц

[munthrekosh]

Есть следующий код создания FileMapping:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ffile:=CreateFile('ffile.txt', GENERIC_ALL, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
  hFileMapObj:=CreateFileMapping(ffile,Nil,PAGE_READWRITE,0,1,'MySharedValue');
  If (hFileMapObj=0)
    Then
      ShowMessage('Не могу создать FileMapping!')
    Else
      lpBaseAddress:=MapViewOfFile(hFileMapObj,FILE_MAP_READ,0,0,0);
  If lpBaseAddress=Nil
    Then
      ShowMessage('Не могу подключить FileMapping!');
end;

И код чтения из него:

procedure TForm1.ReadClick(Sender: TObject);
var
  L:integer;
  k:pointer;
begin
  If PositionRead.Text='' then PositionRead.Text:='0';
  If (Length(PositionRead.Text)>1)
    then
      while (PositionRead.Text[1]='0')and(Length(PositionRead.Text)>1) do
        PositionRead.Text:=copy(PositionRead.Text,2,Length(PositionRead.Text)-1);
 
  MemoriesEditPlane.clear;
  L:=Integer(lpBaseAddress);
  L:=L+StrToInt(PositionRead.Text);
  k:=Pointer(L);
  MemoriesEditPlane.text:=PChar(k);
end;

(на всякий случай приложу сам проект)

Читать он у меня умеет только с одной страницы в 4 Кб. Как можно реализовать чтение с большего числа страниц?

[GunSmoker]

А ты понимаешь, что это за волшебные цифирьки?

hFileMapObj:=CreateFileMapping(ffil e,Nil,PAGE_READWRITE,0,1,'MySharedValue')