I/O-Fehler-998

[Nicodius]

ich will n record speichern und laden

jetzt hat mein chef gesagt mit blockread/write geht das gut
hab hier gesucht und wie immer was passendes gefunden aber jetzt krieg ich einen fehler "I/O-Fehler-998" also IN ount fehler irgendwas mit dem lesen/schreibe nder datei aber fehler code 998 finde ich nirgendwo


ich hoffe ihr könnt mir mit dem quellcode helfen

hier issa

Delphi-Quellcode:

type
Vert_Ent = record
  vtjahr : Integer;
  vtproz : array [0..11] of Integer;
end;

Steuer = record
  st_bez : string[30];
  st_jahr : array [0..11] of Integer;
  st_vert : string[10];
  st_aufk : array [0..11] of longint;
end;

Modell = record
  und_bez : string[30];
  und_st  : array [0..31] of Steuer;
end;


TAlles= record
  Vert_ast : array [0..30] of array [0..22] of string[30] ;
  vert_datum : array [0..31] of Vert_ent;
  mod_ : array [0..15] of Modell;
  end;
var
  Form1: TForm1;
  Alles : TAlles;
implementation

{$R *.DFM}

procedure TForm1.SaveClick(Sender: TObject);
var

  FaDatei: file of Talles;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
  result : word;
begin
    if SaveDialog1.Execute then           { Dialog zum Speichern anzeigen }
    begin
      AssignFile(FaDatei, SaveDialog1.FileName);   { Ausgabedatei öffnen }
      Rewrite(FaDatei);   { Datensatzgröße = 1 }
      repeat
        BlockWrite(FaDatei, Buf, NumRead, NumWritten);
      until (NumRead = 0) or (NumWritten <> NumRead);
        CloseFile(FaDatei);
    end;
    //EInOutError
end;

mach ich generell was falsch?


glg Nico