[Kpoch]

Autorespuesta:
Bueno siento que solo me motivo y me ayudo, lo voy poniendo como avanze para que mas o menos me entiendan ok? y para la gente que desse algo parecido :P

Logre obtener el root de la carpeta no importa donde esta instalado + la carpeta de las keys dado que esa no se guarda en el registro, seria asi

MyString+'\keys\*.ctt, dado que la llave de registro no "entra" hasta la carpeta keys, Ok logro obtener los datos en el memo de que los files existen pero No se pueden borrar (no estan usandose ni en modo lectura)

procedure TForm1.Button1Click(Sender: TObject);
const
MyKey = '\SOFTWARE\UG\Data';
  var
  MyString2 : String;
  MySearch: TSearchRec;
begin
with TRegistry.Create do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey(MyKey, False) then
      begin
        MyString2 := ReadString('Storage');
        CloseKey;
      end;
    finally
      Free;
  FindFirst(MyString2+'\Keys\*.ctt', faAnyFile, MySearch);
  Memo1.Lines.Add(MySearch.Name);
  DeleteFile(MyString2+'\Keys\*.ctt');+MySearch.Name);
  while FindNext(MySearch)=0 do
  begin
    Memo1.Lines.Add(MySearch.Name);
    DeleteFile(MyString2+'\Keys\*.ctt'+MySearch.Name);
  end;
  FindClose(MySearch);
end;
  end;
end.