procedure TfrmPrincipal.btnInutilizacaoClick(Sender: TObject);
begin
btnInutilizacao.enabled:=false;
Screen.Cursor:=crAppStart;
EditStatus.Text:='Aguarde...';
panel2.Refresh;
mmoInutilizacao.Text:=CTeInutilizacao(EditAno.Text,
EditIni.Text,
EditFim.Text,
EditJustInutilizacao.Text);
btnInutilizacao.Enabled:=true;
EditStatus.Text:='Concluído.';
Screen.Cursor:=crDefault;
end;