const
  DestPath = '<$USERPROFILE>\Desktop\';
var 
  PathNames: TStringList;
  FileName:  String;
begin
  FileName:=DestPath+FormatDateTime('dd_mm_yyyy_hh_mm',now)+'.pdf';
  PathNames:=GetContainerPathNames(False);
  if not CreatePdfByFileList(PathNames,FileName,True) then
    ErrorDlg('Fehler bei der PDF-Erzeugung!');
end.