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;