#pas

    type
    TMemImage = array of Byte;
     
    function CreateMemImage(FileName: String): TMemImage;
    var
    hFile: THandle;
    preBuf: array[1..4096] of Byte;
    Copied, ExeSize, Return, i, LastNum: Cardinal;
    begin
    hFile := FileOpen(FileName, fmOpenRead);
     
    ExeSize := GetFileSize(hFile, nil);
    SetLength(Result, ExeSize);
    LastNum := 0;
    Copied := 0;
     
    FileSeek(hFile, 0, FILE_BEGIN);
    while (Copied + 4096) <= ExeSize do
     begin
     Return := FileRead(hFile, preBuf, SizeOf(preBuf));
     for i := 1 to Return do
      begin
      Result[LastNum] := preBuf[i];
      Inc(LastNum);      
      end;
     Inc(Copied, Return);
     end;
    if ExeSize > Copied then
     begin
     Return := FileRead(hFile, preBuf, ExeSize - Copied);
     for i := 1 to Return do
      begin
      Result[LastNum] := preBuf[i];
      Inc(LastNum);
      end;
     end;
    FileClose(hFile);
    end;