Help with batch printing

    try
      Done := Findfirst(IncludeTrailingPathDelimiter(BatchEditPath.Text)  + '*.pdf', faAnyFile, SearchRec);
      while Done = 0 do
        begin
          if ((SearchRec.Attr and faDirectory) = 0) and
              (SearchRec.Name <> '.') and
              (SearchRec.Name <> '..') then
          begin
              PrintPdf(IncludeTrailingPathDelimiter(BatchEditPath.Text) + SearchRec.Name);
          end;
          Done := FindNext(SearchRec);
        end;
    finally
        FindClose(SearchRec);
    end;

end;

procedure TForm1.PrintPdf(MyFileName: string);
var
QP : TiSEDQuickPDF;
MyPageCount, MyOptions: integer;
MyPrinter :string;

begin

  QP := TiSEDQuickPDF.Create;
  try

    if QP.UnlockKey('EvaluationKeyHere') <> 1 then
        raise Exception.Create('Invalid license key');

    if QP.LoadFromFile(MyFileName) <> 1 then
        raise Exception.Create('Cannot load PDF file: ' + MyFileName);

    If QP.Encrypted > 0 Then
        QP.Unencrypt;

    MyPageCount := QP.PageCount;

    MyPrinter := QP.NewCustomPrinter(PrintersComboBox.Text); 

    // 2=shrink large pages, 1=rotate to fit and centre on page 
    MyOptions := QP.PrintOptions(2, 1, MyFileName);

    case PaperGroup.ItemIndex of
      0: QP.SetupCustomPrinter(MyPrinter,1,DMPAPER_A3);
      1: QP.SetupCustomPrinter(MyPrinter,1,DMPAPER_A4);
    end;

    if QP.PrintDocument(MyPrinter, 1, MyPageCount, MyOptions) = 0 then
      raise Exception.Create('Cannot print file: ' + MyFileName);

  finally
    QP.Free;
  end;

end;