Closing FrxDesigner programmatically (after Save Report)

function TMainForm.frxDesigner1SaveReport(Report: TfrxReport;
  SaveAs: Boolean): Boolean;
var AForm : TFormInformationGabarit;
begin
// need to have some description  in a formatted way
AForm:=TFormInformationGabarit.Create(Self);
try
  AForm.EtatDescription:=Etat.ReportOptions.Description;
  if AForm.ShowModal=mrok then  Report.ReportOptions.Description.Text:=AForm.EtatDescription.Text;
finally
  AForm.Free;
end;
// -------------------------------------------------
SaveFastReport.DefaultFolder:=DirDA;
SaveFastReport.ClientGUID:=GUID; // const
SaveFastReport.FileName:=Report.FileName;
if Length(Trim(Report.FileName))=0 then SaveFastReport.FileName:='brand*.fr3';
if SauverFastReport.Execute then
  begin
     Report.SaveToFile(SaveFastReport.FileName);
/// not sure this is needed
//     if SaveAs then
//      begin
//       FRFileName.FileName:=SauverFastReport.FileName;
//       Report.FileName:=ExtractFileName(SauverFastReport.FileName);
//      end;
  end;
result:=True;  // 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
// Here i want to close designer  
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ReloadLoadTest(Report);  // reload report.filename 
end;