Fórum PDF no Delphi 7 (*AJUDA*) #447125

procedure TfVisualizador.btnExcluirClick(Sender: TObject);
var
  vNomeArquivo: String;
begin
  btnNovo.Enabled:= False;
  btnAlterar.Enabled:= False;
  btnSalvar.Enabled:= False;
  TrV.Items.BeginUpdate;
  Try
    {Não permite que o usuário exclua o nó raiz} //Esse tem que mudar para Raiz e para o ultimo
    if(TrV.Selected.Level = 0) then
    begin
      Beep;
      ShowMessage('Não é possível excluir o processo!');
      Exit;
    end;

    {Não permite que o usuário exclua o nó que não seja o ultimo }
    if not(TrV.Selected.Index = (DM.qQt.FieldByName('Quant_paginas').Value -1)) then
    begin
      Beep;
      ShowMessage('Não é possível excluir essa página!');
      Exit;
    end;

    {Certifique-se de selecionar um nó, antes de tentar apagá-lo}
    if(TrV.Selected = nil) then
    begin
      Beep;
      ShowMessage('Selecione a última página');
      Exit;
    end;

    vNomeArquivo := TNoData(TrV.Selected.Data).sText;

    {Messagen para excluir o arquivo e pagina}                                  
    if Application.MessageBox(PChar('Deseja Realmente EXCLUIR '+vNomeArquivo+'?'),
                'Pergunta', MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON2) <> IDNO then
    begin
      {Apagar arquivos:}
      Windows.DeleteFile (PChar(Trim(DM.TParCaminho.AsString)+vNomeArquivo));
      {Apaga do Banco de Dados}
      DM.qArq.Delete;
      {Libera a Classe de dados do nó}
      if(TrV.Selected.Data <> nil) then
        TNoData(TrV.Selected.Data).Free;
      {Apaga da Árvor}
      TrV.Selected.Delete;
      {Apagar a tela PDF}
      {AcroPDF.Destroy} // Não Funfa ainda, ele apaga tudo e não aparece mada depois 
    end;
  finally
    {Fecha a Atualização da Árvore}
    TrV.Items.EndUpdate;
  end;
  btnNovo.Enabled:= True;
  btnAlterar.Enabled:= True;
  btnSalvar.Enabled:= True;
end;// Fim do btnExcluir OnClick