델마당에도 같은 질문을 올렸는데요. 여기도 다시 질문을 올려 봅니다.

http://www.angelfire.com/hi5/delphizeus/ 라는 싸이트에서 델파이로 API프로그래밍에 대해 공부중입니다.
아래는 소스는 15장에 나오는 코드의 일부분입니다.

const
  FileID: Cardinal = $C2FAD1;
  ChunkSize: Cardinal = $200;
  Meg: Cardinal = $100000;
....
...
procedure Split1Meg(hInFile: Cardinal; var OutFile, FileName: String);
var
  hChopFile, Size1, ChopSize, BytesRead,
  BytesWrite, ReadSize, Total, numPieces, HeaderSize, i: Cardinal;
  NameLength: Word;
  BadFile: Bool;
  pMemBuf: Pointer;
  CreateTime: TFileTime;

  function tryWrite(var Source; Size: Cardinal; opPos: Integer): Bool;
  begin
  if WriteFile(hChopFile,Source,Size,BytesWrite,nil) and (BytesWrite = Size) then
    Result := False // Result is False for a Successful Write
    else
    begin
      Result := True;
      BadFile := True;
      SysErrorMsg(WriteErrText, WriteErrTitle+' '+Int2Str(opPos));
    end;
  end;

begin
  ...
  GetMem(pMemBuf, ChunkSize);
  ...
  Total := HeaderSize;  // Total will record the amount read from the source file
  ...
    if i = One then // only for the first piece, add a File header
      begin
      if tryWrite(FileID, SizeOf(FileID), -1) then Exit; <----- 에러나는 부분
  ...
  ...
end;

[Error] SplitFilesU.pas(373): Constant object cannot be passed as var parameter
컴파일해보면 위와 같은 에러가 납니다.
상수는 var 파라메터의 인수로 넣을수 없다는 말인것 같은데요
싸이트 저자가 테스트를 한후에 올린 코드일거라 생각되므로 정상적으로 컴파일 되는게 맞을것 같은데
제가 지금 사용하는 버전은 델파이7버전이고 저자가 사용한 델파이 버전은 뭔지는 잘모르겠네요

컴파일러 옵션으로 조정이 가능한건지 알고 싶네요
제가 어디서 얼핏 보기론 상수는 메모리번지를 가지지 않는다고 한걸 본것 같은데
그럼 var타입으로 넘긴다는게 메모리번지를 넘기는거므로 에러가 나는게 맞는것 같기도 하고
정확한 이유 좀 설명해 주실분 계신가요?