Function at 0x4617a0
Capabilities:
Access peb ldr_data
Get ntdll base address

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0x11
push 0
push 0
dec ecx
jne 0x4617a9
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov edi, ecx
mov dword [ebp - 0x40], edx
mov dword [ebp - 0x3c], eax
lea esi, [ebp - 0x80]
xor eax, eax
push ebp
push 0x461bb8
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp + 0x14]
test byte [eax + 0x18], 1
setne bl
test bl, bl
je 0x4618d8
mov eax, dword [ebp - 0x3c]
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
test eax, eax
jle 0x46181f
mov eax, dword [ebp - 0x3c]
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
mov edx, eax
add edx, edx
lea eax, [ebp - 0x20]
xor ecx, ecx
call sub.rtl120.bpl__System__LStrSetLength_qqrv
mov eax, dword [ebp - 0x20]
call sub.rtl120.bpl__System__LStrLen_qqrx27System__AnsiStringT_us_i0__
push eax
lea eax, [ebp - 0x20]
call sub.rtl120.bpl__System__UniqueStringA_qqrr27System__AnsiStringT_us_i0__
mov edx, eax
mov eax, dword [ebp - 0x3c]
pop ecx
call sub.rtl120.bpl__System_Move_qqrpxvpvi
mov eax, dword [ebp - 0x40]
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
test eax, eax
jle 0x46185d
mov eax, dword [ebp - 0x40]
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
mov edx, eax
add edx, edx
lea eax, [ebp - 0x30]
xor ecx, ecx
call sub.rtl120.bpl__System__LStrSetLength_qqrv
mov eax, dword [ebp - 0x30]
call sub.rtl120.bpl__System__LStrLen_qqrx27System__AnsiStringT_us_i0__
push eax
lea eax, [ebp - 0x30]
call sub.rtl120.bpl__System__UniqueStringA_qqrr27System__AnsiStringT_us_i0__
mov edx, eax
mov eax, dword [ebp - 0x40]
pop ecx
call sub.rtl120.bpl__System_Move_qqrpxvpvi
mov eax, edi
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
test eax, eax
jle 0x461898
mov eax, edi
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
mov edx, eax
add edx, edx
lea eax, [ebp - 0x34]
xor ecx, ecx
call sub.rtl120.bpl__System__LStrSetLength_qqrv
mov eax, dword [ebp - 0x34]
call sub.rtl120.bpl__System__LStrLen_qqrx27System__AnsiStringT_us_i0__
push eax
lea eax, [ebp - 0x34]
call sub.rtl120.bpl__System__UniqueStringA_qqrr27System__AnsiStringT_us_i0__
mov edx, eax
mov eax, edi
pop ecx
call sub.rtl120.bpl__System_Move_qqrpxvpvi
mov eax, dword [ebp + 0x18]
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
test eax, eax
jle 0x46191d
mov eax, dword [ebp + 0x18]
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
mov edx, eax
add edx, edx
lea eax, [ebp - 0x18]
xor ecx, ecx
call sub.rtl120.bpl__System__LStrSetLength_qqrv
mov eax, dword [ebp - 0x18]
call sub.rtl120.bpl__System__LStrLen_qqrx27System__AnsiStringT_us_i0__
push eax
lea eax, [ebp - 0x18]
call sub.rtl120.bpl__System__UniqueStringA_qqrr27System__AnsiStringT_us_i0__
mov edx, eax
mov eax, dword [ebp + 0x18]
pop ecx
call sub.rtl120.bpl__System_Move_qqrpxvpvi
jmp 0x46191d
lea eax, [ebp - 0x20]
mov edx, dword [ebp - 0x3c]
mov ecx, 0
call sub.rtl120.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
lea eax, [ebp - 0x30]
mov edx, dword [ebp - 0x40]
mov ecx, 0
call sub.rtl120.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
lea eax, [ebp - 0x34]
push eax
xor ecx, ecx
mov edx, 1
mov eax, edi
call fcn.0044c828
lea eax, [ebp - 0x18]
push eax
xor ecx, ecx
mov edx, 1
mov eax, dword [ebp + 0x18]
call fcn.0044c828
lea edx, [ebp - 0x38]
mov eax, edi
call sub.rtl120.bpl__Sysutils_AnsiUpperCase_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x38]
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
mov edx, eax
add edx, edx
lea eax, [ebp - 0x1c]
xor ecx, ecx
call sub.rtl120.bpl__System__LStrSetLength_qqrv
mov eax, dword [ebp - 0x1c]
call sub.rtl120.bpl__System__LStrLen_qqrx27System__AnsiStringT_us_i0__
push eax
lea eax, [ebp - 0x1c]
call sub.rtl120.bpl__System__UniqueStringA_qqrr27System__AnsiStringT_us_i0__
mov edx, eax
mov eax, dword [ebp - 0x38]
pop ecx
call sub.rtl120.bpl__System_Move_qqrpxvpvi
mov eax, esi
xor ecx, ecx
mov edx, 0x40
call sub.rtl120.bpl__System__FillChar_qqrpvib
mov edx, esi
mov eax, 0x461bc8
mov ecx, 8
call sub.rtl120.bpl__System_Move_qqrpxvpvi
mov dword [esi + 8], 3
mov eax, dword [ebp - 0x20]
call sub.rtl120.bpl__System__LStrLen_qqrx27System__AnsiStringT_us_i0__
mov edi, eax
mov word [esi + 0x1c], di
mov word [esi + 0x1e], di
mov dword [esi + 0x20], 0x40
mov eax, dword [ebp - 0x34]
call sub.rtl120.bpl__System__LStrLen_qqrx27System__AnsiStringT_us_i0__
mov edi, eax
mov word [esi + 0x24], di
mov word [esi + 0x26], di
movzx eax, word [esi + 0x1c]
add eax, dword [esi + 0x20]
mov dword [esi + 0x28], eax
mov eax, dword [ebp - 0x30]
call sub.rtl120.bpl__System__LStrLen_qqrx27System__AnsiStringT_us_i0__
mov edi, eax
mov word [esi + 0x2c], di
mov word [esi + 0x2e], di
movzx eax, word [esi + 0x24]
add eax, dword [esi + 0x28]
mov dword [esi + 0x30], eax
test bl, bl
je 0x4619dd
mov dword [esi + 0x3c], 1
jmp 0x4619e4
mov dword [esi + 0x3c], 2
mov eax, dword [esi + 0x3c]
or eax, 4
or eax, 0x200
or eax, 0x8000
mov dword [esi + 0x3c], eax
cmp dword [ebp + 0xc], 0
jne 0x461a3a
lea eax, [ebp - 0x84]
mov edx, dword [ebp + 0x18]
mov ecx, 0
call sub.rtl120.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov eax, dword [ebp - 0x84]
lea ecx, [ebp - 0x28]
mov edx, dword [ebp + 0x14]
add edx, 0x10
call fcn.00460a74
lea ecx, [ebp - 0x2c]
mov edx, dword [ebp + 0x14]
add edx, 0x10
mov eax, dword [ebp - 0x18]
call fcn.00460c44
jmp 0x461ad6
mov eax, dword [ebp + 0xc]
dec eax
sub eax, 2
jae 0x461abd
mov eax, dword [ebp + 0x14]
test byte [eax + 0x1a], 8
je 0x461a70
or dword [esi + 0x3c], 0x80000
push ebp
lea eax, [ebp - 0x2c]
call sub.rtl120.bpl__System__LStrClr_qqrpv
push eax
lea eax, [ebp - 0x28]
call sub.rtl120.bpl__System__LStrClr_qqrpv
xor ecx, ecx
pop edx
call fcn.004611fc
pop ecx
jmp 0x461ad6
lea ecx, [ebp - 0x2c]
mov edx, dword [ebp + 0x14]
add edx, 0x10
mov eax, dword [ebp - 0x18]
call fcn.00460c44
cmp dword [ebp + 0xc], 2
jne 0x461a94
lea eax, [ebp - 0x28]
mov edx, dword [ebp - 0x2c]
call sub.rtl120.bpl__System__LStrLAsg_qqrpvpxv
jmp 0x461ad6
lea eax, [ebp - 0x88]
mov edx, dword [ebp + 0x18]
mov ecx, 0
call sub.rtl120.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov eax, dword [ebp - 0x88]
lea ecx, [ebp - 0x28]
mov edx, dword [ebp + 0x14]
add edx, 0x10
call fcn.00460a74
jmp 0x461ad6
push ebp
lea eax, [ebp - 0x2c]
call sub.rtl120.bpl__System__LStrClr_qqrpv
push eax
lea eax, [ebp - 0x28]
call sub.rtl120.bpl__System__LStrClr_qqrpv
pop edx
call fcn.00461528
pop ecx
mov eax, dword [ebp - 0x28]
call sub.rtl120.bpl__System__LStrLen_qqrx27System__AnsiStringT_us_i0__
mov ebx, eax
mov word [esi + 0xc], bx
mov word [esi + 0xe], bx
movzx eax, word [esi + 0x2c]
add eax, dword [esi + 0x30]
mov dword [esi + 0x10], eax
mov eax, dword [ebp - 0x2c]
call sub.rtl120.bpl__System__LStrLen_qqrx27System__AnsiStringT_us_i0__
mov ebx, eax
mov word [esi + 0x14], bx
mov word [esi + 0x16], bx
movzx eax, word [esi + 0xc]
add eax, dword [esi + 0x10]
mov dword [esi + 0x18], eax
mov word [esi + 0x34], 0
mov word [esi + 0x36], 0
movzx eax, word [esi + 0x14]
add eax, dword [esi + 0x18]
mov dword [esi + 0x38], eax
lea eax, [ebp - 0x24]
xor ecx, ecx
mov edx, 0x40
call sub.rtl120.bpl__System__LStrSetLength_qqrv
mov edx, dword [ebp - 0x24]
mov eax, esi
mov ecx, 0x40
call sub.rtl120.bpl__System_Move_qqrpxvpvi
push dword [ebp - 0x24]
push dword [ebp - 0x20]
push dword [ebp - 0x34]
push dword [ebp - 0x30]
push dword [ebp - 0x28]
push dword [ebp - 0x2c]
lea eax, [ebp - 0x24]
mov edx, 6
call sub.rtl120.bpl__System__LStrCatN_qqrv
lea edx, [ebp - 0x8c]
mov eax, dword [ebp - 0x24]
call fcn.0045e888
mov edx, dword [ebp - 0x8c]
mov eax, dword [ebp + 8]
call sub.rtl120.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x461bbf
lea eax, [ebp - 0x8c]
mov edx, 3
call sub.rtl120.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x38]
call sub.rtl120.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x34]
mov edx, 8
call sub.rtl120.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__LStrClr_qqrpv
ret