procedure TfrmPrincipal.btnImprimeDanfeClick(Sender: TObject);
var
x: integer;
begin
Screen.cursor:=crAppStart;
btnImprimeDanfe.Enabled:=false;
EditStatus.Text:='Gerando DANFE, aguarde...';
Panel2.Refresh;
for x:=1 to StrToInt(EditQtdDanfe.Text) do
ImprimeDanfe(EditPathDanfe.text,EditPathPDF.Text,(rdgOpcoesDanfe.ItemIndex+1),chkFormSeguranca.Checked);
EditStatus.Text:='DANFE Gerado.';
btnImprimeDanfe.Enabled:=true;
Screen.cursor:=crDefault
end;