procedure TfrmPrincipal.btnValidarArquivoClick(Sender: TObject); begin Screen.cursor:=crAppStart; btnValidarArquivo.Enabled:=false; EditStatus.Text:=''; if (ValidarArquivoXML(EditPathValidarArquivo.text, cbbSchema.Text, true)) then EditStatus.Text:='Arquivo Validado. Nenhum erro identificado.' else EditStatus.Text:='Problemas na validação.'; btnValidarArquivo.Enabled:=true; btnValidarArquivo.SetFocus; Screen.cursor:=crDefault; end;