Fehler beim Laden von Array of record aus Datei

[Michael Leyhe]

Ich habe folgendes Problem:
Ich speicher ein Array of record in einer Datei.
Wenn ich diese Datei nun lade dann steht nicht mehr das im Array was dort vorher stand.

Hier ist der Code:

Delphi-Quellcode:

var  Feld :array [1 .. 1000] of TFeld ; // TFeld ist ein record 


Procedure Speichern;
var 
fs:TFileStream;
begin
if SaveDialog1.Execute then begin
     fs:=TFileStream.create(SaveDialog1.FileName,fmCreate);
      try
       fs.write(feld,sizeOf(feld));
      finally
      fs.free;
      end;
  end;
end;


Procedure Laden:
var
fs:TFileStream;
begin
if openDialog1.Execute then
   begin
    if fileExists(openDialog1.FileName) then
       begin
        fs := TFileStream.create(openDialog1.FileName,fmOpenread);
        try
           if fs.size >= sizeOf(feld) then fs.read(feld,sizeOf(feld));
        finally
           fs.free;
        end;
       end else showMessage('foobar not da');
   end;
end;

Ich hoffe ihr könnt mir helfen. Danke.