procedure TfrmPrincipal.btnSituacaoCTeClick(Sender: TObject);
begin
btnSituacaoCTe.enabled:=false;
Screen.Cursor:=crAppStart;
EditStatus.Text:='Aguarde...';
panel2.Refresh;
mmoConsultaSituacao.Text:=CTeConsulta(EditCTeSituacao.text);
btnSituacaoCTe.Enabled:=true;
EditStatus.Text:='Concluído.';
Screen.Cursor:=crDefault;
end;