3 Dimensionale Array of Word Speichern Und Laden?

[Hallo_Thomas]

Bei mir gabs ne Fehlermeldung. Zugriffsverletzung im Modul...........

Delphi-Quellcode:

procedure TForm1.Speichern2Click(Sender: TObject);
var Stream:TStream;
  i,j,size:Integer;
begin
  with SaveDialog1 do
  begin
    Filter := 'Textdateien (*.TXT)|*.TXT';
    FileName := 'Firmenbrief.txt';
    DefaultExt := 'TXT';
    Options := [ofOverwritePrompt];     // Sicherheitsabfrage beim Überschreiben
    if Execute then
    begin
      Size :=Length(Check[0, 0]) * SizeOf(Word);
      for i := 0 to High(Check) do
        for j := 0 to High(Check[0]) do
          Stream.Write (Check[i, j, 0], Size);
    end;
  end;
end;