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;