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;