procedure TfrmPrincipal.btnAssinarClick(Sender: TObject); begin Screen.Cursor:=crAppStart; btnAssinar.Enabled:=false; EditStatus.Text:='Solicitando assinatura, aguarde...'; Panel2.Refresh; EditStatus.Text:= AssinaArquivoXML(OpenDialog1.FileName,'infNFe'); EditStatus.Text:='Concluído.'; btnAssinar.Enabled:=true; Screen.Cursor:=crDefault end;