Function at 0x410bd0
Capabilities:
Query or enumerate registry key

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffbc
push ebx
push esi
push edi
xor ecx, ecx
mov dword [ebp - 0x44], ecx
mov dword [ebp - 0x40], ecx
mov dword [ebp - 4], ecx
mov dword [ebp - 8], ecx
mov ebx, edx
mov dword [ebp - 0xc], eax
xor eax, eax
push ebp
push 0x410e46
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0xc]
cmp dword [eax + 0x20], 0
je 0x410deb
mov eax, dword [ebp - 0xc]
call fcn.00411e84
mov edx, eax
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x10]
lea eax, [ebp - 4]
mov edx, ebx
call sub.rtl250.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, dword [ebp - 4]
mov eax, dword [ebp - 0xc]
call fcn.00410654
mov byte [ebp - 0x11], al
cmp byte [ebp - 0x11], 0
jne 0x410c4c
lea eax, [ebp - 4]
mov ecx, 1
mov edx, 1
call sub.rtl250.bpl__System__UStrDelete_qqrr20System_UnicodeStringii
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 4]
mov dword [ebp - 0x18], eax
mov edx, ebx
mov eax, dword [ebp - 0xc]
call fcn.0041120c
mov dword [ebp - 0x1c], eax
cmp dword [ebp - 0x1c], 0
je 0x410db4
xor eax, eax
push ebp
push 0x410dad
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, dword [ebp - 0x1c]
mov eax, dword [ebp - 0xc]
call sub.rtl250.bpl__System_Win_Registry_TRegistry_SetCurrentKey_qqrp6HKEY__
lea edx, [ebp - 0x3c]
mov eax, dword [ebp - 0xc]
call sub.AxComponentsRTL.bpl__Axrtl_System_Win_Registry_TRegistry_GetKeyInfo_qqrr31System_Win_Registry_TRegKeyInfo
test al, al
je 0x410d86
mov ecx, dword [ebp - 0x38]
inc ecx
lea eax, [ebp - 8]
xor edx, edx
call sub.rtl250.bpl__System__UStrFromPWCharLen_qqrr20System_UnicodeStringpbi
mov ebx, dword [ebp - 0x3c]
dec ebx
cmp ebx, 0
jl 0x410cfc
mov eax, dword [ebp - 0x38]
inc eax
mov dword [ebp - 0x10], eax
push 0
push 0
push 0
push 0
lea eax, [ebp - 0x10]
push eax
mov eax, dword [ebp - 8]
call sub.rtl250.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push ebx
mov eax, dword [ebp - 0x1c]
push eax
call sub.advapi32.dll_RegEnumKeyExW
test eax, eax
jne 0x410cf6
mov eax, dword [ebp - 8]
call sub.rtl250.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
mov edx, eax
lea eax, [ebp - 0x40]
call sub.rtl250.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
mov edx, dword [ebp - 0x40]
mov eax, dword [ebp - 0xc]
call fcn.00410bd0
dec ebx
cmp ebx, 0xffffffff
jne 0x410caf
cmp dword [ebp - 0x34], 0
jle 0x410d86
mov dl, 1
mov eax, dword [sym.imp.rtl250.bpl__System_Classes_TStringList_]
call sub.rtl250.bpl__System_Classes_TStringList__bctr_qqrv
mov dword [ebp - 0x20], eax
xor eax, eax
push ebp
push 0x410d7f
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, dword [ebp - 0x20]
mov eax, dword [ebp - 0xc]
call sub.AxComponentsRTL.bpl__Axrtl_System_Win_Registry_TRegistry_GetValueNames_qqrp23System_Classes_TStrings
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14]
mov esi, eax
dec esi
test esi, esi
jl 0x410d69
inc esi
xor ebx, ebx
lea ecx, [ebp - 0x44]
mov edx, ebx
mov eax, dword [ebp - 0x20]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x44]
call sub.rtl250.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
mov ecx, eax
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x20]
mov edx, dword [ebp - 0x1c]
mov edi, dword [eax]
call dword [edi + 0x28]
inc ebx
dec esi
jne 0x410d40
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x410d86
lea eax, [ebp - 0x20]
call sub.rtl250.bpl__System_Sysutils_FreeAndNil_qqrpv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x410db4
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 0xc]
call sub.rtl250.bpl__System_Win_Registry_TRegistry_SetCurrentKey_qqrp6HKEY__
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x20]
mov edx, dword [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0x40]
ret
movzx edx, byte [ebp - 0x11]
mov eax, dword [ebp - 0xc]
call sub.rtl250.bpl__System_Win_Registry_TRegistry_GetBaseKey_qqro
mov dword [ebp - 0x1c], eax
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x18]
and eax, 0x300
push eax
push 0
mov eax, dword [ebp - 4]
call sub.rtl250.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
mov ecx, eax
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x20]
mov edx, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx + 0x20]
jmp 0x410e1e
mov edx, ebx
mov eax, dword [ebp - 0xc]
call sub.AxComponentsRTL.bpl__Axrtl_System_Win_Registry_TRegistry_DeleteKey_qqrx20System_UnicodeString
mov edx, dword [ebp - 0xc]
cmp dword [edx + 0x24], 0
je 0x410e15
test al, al
jne 0x410e15
mov edx, dword [ebp - 0xc]
cmp dword [edx + 0x1c], 5
jne 0x410e15
mov edx, ebx
mov eax, dword [ebp - 0xc]
call fcn.00411ed8
test al, al
jne 0x410e1e
call sub.rtl250.bpl__System_Sysutils_RaiseLastOSError_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x410e4d
lea eax, [ebp - 0x44]
mov edx, 2
call sub.rtl250.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl250.bpl__System__UStrArrayClr_qqrpvi
ret