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