File Mapping

procedure TForm1.Button1Click(Sender: TObject);
var hFile1: THandle;
    hMap : THandle;
    buff: Pointer;
begin
hFile1:=CreateFile('D:\123123123.txt',
            GENERIC_ALL,
            FILE_ATTRIBUTE_READONLY,
            NIL,
            OPEN_EXISTING,
            FILE_ATTRIBUTE_NORMAL,
            0);
hMap:=CreateFileMapping(hFile1,
                        Nil,
                        PAGE_READONLY,
                        0,
                        0,
                        nil);
buff := MapViewOfFile(hMap,
                      FILE_MAP_READ,
                      0,
                      0,
                      [COLOR="Red"]256[/COLOR]);
if buff = nil then exit;
Memo1.text:=PChar(buff);
UnmapViewOfFile(buff);
CloseHandle(hMap);
CloseHandle(hFile1);
end;