function: NtAllocateVirtualMemory(ProcessHandle: THANDLE; BaseAddress: Pointer; ZeroBits: DWORD;
      AllocationSize: PDWORD; AllocationType: DWORD; Protect: dword): NTStatus; stdcall; external 'ntdll.dll' name 'NtAllocateVirtualMemory';

function CopyFileToMemory(FileName: PChar; out Data: Pointer; DataSize: Cardinal=0): Cardinal;
{ Если DataSize будет 0, то выделится память в размер файла. Её нужно освободить с помощью FreeMemory. Размер памяти для освобождения будет на выходе. }
label
    Exit;
var
    OFS: TOFStruct;
    FileSize: Cardinal;
    hFile, ReadByte: DWORD;
begin
    Result:=0;
    hFile:=OpenFile(FileName, OFS, 0);
    if hFile<>INVALID_HANDLE_VALUE then
    begin
       FileSize:=DataSize;
       if FileSize=0 then
       begin
          FileSize:=GetFileSize(hFile, nil);
          if FileSize>0 then
             Data:=GetMemory(FileSize)
          else
             goto Exit;
       end;
       if ReadFile(hFile, Data^, FileSize, ReadByte, nil) then // Читаем из файла DataSize количество байт, и записываем их в Data.
          Result:=FileSize;
       Exit: CloseHandle(hFile);
    end;
end;