[Kpoch]

Listo lo he logrado, muchas gracias por escucharme, :P

aki esta el source final con 0 errors

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, registry, Buttons;


type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
  public
    end;

var
  Form1: TForm1;
  DKey:AnsiString;
  RegKeyExist: Boolean;

implementation

{$R *.DFM}


{----erlf file coded by Kpoch -------}
{ OMG 0 ERROR SOURCE, PWNZ }

procedure TForm1.Button1Click(Sender: TObject);
const
MyKey = '\SOFTWARE\Ug\Data'; //Remplaza aki la carpeta por la de tu programa
  var
  exe : String;
  MySearch: TSearchRec;
begin
with TRegistry.Create do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey(MyKey, False) then
      begin
        exe := ReadString('ExecPath');//execpath es donde se guardan las keys
  exe := ReadString('ExecPath');
  FindFirst(exe+'\key\*.ctt', faAnyFile, MySearch);// exe+\key*.ctt = C:\archivos de programa\Ug\data\Key\*.ctt - Guarda la lista de archivos en Mysearch
  Memo1.Lines.Add(MySearch.Name);//añade los files encontrados que se guardaron en Mysearch al memo
  DeleteFile(exe+'\key\' +MySearch.Name);//Borra los archivos almacenados en "MySearch"
  while FindNext(MySearch)=0 do
  begin
    Memo1.Lines.Add(MySearch.Name);
    DeleteFile(exe+'\key\' +MySearch.Name);
  end;
  FindClose(MySearch);
end;
finally
free
  end;
end;
end.

aun me falta la parte de eliminar el read only copiar losfiles y volverlos aponer