procedure TfrmPrincipal.btnRecepClick(Sender: TObject);
begin
Screen.Cursor:=crAppStart;
Button7.Enabled:=false;
EditStatus.Text:='Aguarde...';
OpenDialog1.InitialDir:=ExtractFilePath(ParamStr(0))+'nfe\lotes';
panel2.Refresh;
if (OpenDialog1.Execute) then
begin
mmoRecepcao.text:=NFeRecepcao(OpenDialog1.FileName)
end else
mmoRecepcao.text:='Não obteve retorno.';
Button7.Enabled:=true;
EditStatus.Text:='Concluído.';
Screen.Cursor:=crDefault;
end;