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;