procedure TfrmPrincipal.btnCancelamentoClick(Sender: TObject); begin btnCancelamento.enabled:=false; Screen.Cursor:=crAppStart; EditStatus.Text:='Aguarde...'; panel2.Refresh; mmoCancelamento.TExt:=CTeCancelamento( EditCTe.text, EditProtocoloCancelamento.text, EditJustificativa.Text); btnCancelamento.Enabled:=true; EditStatus.Text:='Concluído.'; Screen.Cursor:=crDefault; end;