private { Private declarations } public { Public declarations } end; function ValidarArquivoXML(pathArquivo : shortstring) : boolean; stdcall; External dllNfse; far; (...) procedure TfrmPrincipal.btnValidarArquivoClick(Sender: TObject); begin Screen.cursor:=crAppStart; btnValidarArquivo.Enabled:=false; EditStatus.Text:=''; if(ParametroConfig('layout', '') = '12') then ShowMessage('Serviço não disponível para esta prefeitura') else begin if (ValidarArquivoXML(EditPathValidarArquivo.text)) then EditStatus.Text:='Arquivo Validado. Nenhum erro identificado.' else EditStatus.Text:='Problemas na validação.'; end; btnValidarArquivo.Enabled:=true; btnValidarArquivo.SetFocus; Screen.cursor:=crDefault; end;