procedure TfrmPrincipal.btnStatusServicoClick(Sender: TObject); var ret: shortstring; begin Screen.Cursor:=crAppStart; EditStatus.Text:='Aguarde...'; panel2.Refresh; btnStatusServico.Enabled:=false; ret:=''; ret:=CteStatusServico; if (trim(ret)<>'') then mmoStatusServico.Text:=ret else mmoStatusServico.text:='Não obteve retorno.'; btnStatusServico.Enabled:=true; EditStatus.Text:='Concluído.'; Screen.Cursor:=crDefault; end