BlockRead und E/A Fehler 998 ...

[paule32.jk]

Hallo,

ich habe schon die Suchfunktion des Forums hier befragt und auch schon Antworten finden können.
Allerdings scheinen diese aber auf ganz anderer Weise zu funktionieren.
Wenn ich folgenden Code verwende, bekomme ich entweder den Fehler 998 oder die Ausnahme, das
hinter dem Dateizeiger gelesen wird:

Delphi-Quellcode:

type
  TOpCode = (lit,opr,lod,sto,cal,int,jmp,jpc,wri);
  Instruction = packed record
    f: TOpCode; // command
    l: Byte;    // level
    a: Integer; // address
  end;

  TInstructions = Array of Instruction;
  PInstructions = ^TInstructions;

var
  Instructions : PInstructions;

var
  inFile: File;

procedure foo(filename: String);
var
  FSize: Integer;
begin
  AssignFile(inFile,filename);
  FileMode := 0;
  Reset(inFile,1);
  FSize := FileSize(inFile);
  GetMem(Instructions,FSize);
  BlockRead(inFile,Instructions^[0],FSize);  <--- i/o error 998
//BlockRead(inFile,Instructions,    FSize);  <--- read behind file
  ...
  FreeMem(Instructions,FSize);
end;

es handelt sich um eine binär-Datei.
kann da Einer (oder Mehrere) sachdienliche Hinweise geben ?