[s0Creator]

У Тебя 2 раза DestSubKeys.Free;
В место первого надо DestSubKeys.Clear;