var 
  datei: widestring; 
  art: smallint; 
 
// speichern 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  F1Book1.endedit; 
  try 
    F1Book1.SaveFileDlg(F1Book1.name + ' speichern unter', datei, art); 
    F1Book1.write(datei, art); 
  except 
    // hier evtl. auf Abbruch reagieren 
    // z.B.: 
    // showmessage('Es wurde nichts gespeichert'); 
  end; 
end; 
 
 
// laden 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  try 
    F1Book1.OpenFileDlg('Laden', handle, datei); 
    F1Book1.read(datei, art); 
  except 
    // hier evtl. auf Abbruch reagieren 
  end; 
end;