procedure TForm1.SavePackage(const AFilename : String);
begin
  FPackage.SaveToFile(AFilename);
end;