procedure TfrmPrincipal.btnSituacaoNFeClick(Sender: TObject); begin btnSituacaoNFe.enabled:=false; Screen.Cursor:=crAppStart; EditStatus.Text:='Aguarde...'; panel2.Refresh; mmoConsultaSituacao.Text:=NFeConsulta(EditNFeSituacao.text); btnSituacaoNFe.Enabled:=true; EditStatus.Text:='Concluído.'; Screen.Cursor:=crDefault; end;