早速ありがとうございます。
procedure TForm1.FileSaveAs1Accept(Sender: TObject);
var
ms:TFileStream;
begin
ms:=TFileStream.Create(FileSaveAs1.Dialog.FileName,fmOpenWrite);
ms.Write(ffloor,sizeof(ffloor[0])*high(ffloor)+1);

ms.Free;
end;

procedure TForm1.FileOpen1Accept(Sender: TObject);
var
ms:TFileStream;
begin
ms:=TFileStream.Create(FileOpen1.Dialog.FileName,fmOpenRead);
ms.Read(ffloor,sizeof(ffloor[0])*high(ffloor)+1);
ms.Free;
end;
と、やってみたのですが、何も読み込まれていないようです。
ので、保存がされているかどうかも不明です。
Readの書き方が違うのでしょうか？