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