在Delphi中，可以使用CreateFileMapping函數來創建文件映射對象。下面是一個簡單的示例代碼：

const
  FILE_MAP_ALL_ACCESS = $000F001F;

var
  hFile: THandle;
  hFileMapping: THandle;
  pFileData: Pointer;

begin
  // 打開文件
  hFile := CreateFile('C:\path\to\file', GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if hFile = INVALID_HANDLE_VALUE then
  begin
    ShowMessage('無法打開文件');
    Exit;
  end;

  // 創建文件映射
  hFileMapping := CreateFileMapping(hFile, nil, PAGE_READONLY, 0, 0, nil);
  if hFileMapping = 0 then
  begin
    ShowMessage('無法創建文件映射');
    CloseHandle(hFile);
    Exit;
  end;

  // 將文件映射到內存中
  pFileData := MapViewOfFile(hFileMapping, FILE_MAP_READ, 0, 0, 0);
  if pFileData = nil then
  begin
    ShowMessage('無法將文件映射到內存');
    CloseHandle(hFileMapping);
    CloseHandle(hFile);
    Exit;
  end;

  // 現在可以使用pFileData指向的內存來操作文件數據了

  // 最后記得釋放資源
  UnmapViewOfFile(pFileData);
  CloseHandle(hFileMapping);
  CloseHandle(hFile);
end;

上述代碼首先使用CreateFile打開待操作的文件，然后使用CreateFileMapping函數創建文件映射對象，最后使用MapViewOfFile將文件映射到內存中。在操作完成后，需要使用UnmapViewOfFile函數釋放內存，并使用CloseHandle函數關閉文件映射和文件句柄。