Hola.  Me repicó fuerte el bicho (despúes de varios años) por el Delphi 7 ; y a los usuarios que empiezan a programar en este gran lenguaje les muestro cómo proteger un archivo con un procedimiento muy rápido y sencillo con el objeto, entre otros, de no dejar tirada esta sección, e impeler indirectamente a otros usuarios a que aporten programas aunque sean simples como este que hice. 
Tengo que decir que el archivo queda protegido mientras la aplicación permanezca abierta. Estoy retomando el estudio, (digamos), y práctica de este gran lenguaje.
(Ojalá volviese al foro Joselín; notable contribuyente a las mejoras más significativas y funcionales del rat Coolvibes que ya mencioné en el hilo anterior que creé inmediatamente a este. Él sí programaba en serio, xD) 


Código fuente:


 unit Unit1;

 interface

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls;

 type
   TForm1 = class(TForm)
     Button1: TButton;
     Button2: TButton;
     OpenDialog1: TOpenDialog;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;
   archivo: Textfile;
   s: String;

 implementation

 {$R *.dfm}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
     If OpenDialog1.Execute then
       begin
        s:= OpenDialog1.FileName;
        AssignFile(archivo, s);
        Reset(archivo);
       end;
     end;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
     If not FileExists(s) then
      begin
       ShowMessage('No hay archivo que desproteger');
       end;

     If FileExists(s) then
      begin
       ShowMessage('¡Archivo protegido!');
        CloseFile(archivo);
        end;
     end;
 end.


Enlace de descarga al código fuente y al binario:

[Enlace externo eliminado para invitados]