Function at 0x4b870c
Capabilities:
Resolve function by parsing pe exports

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffd4
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 0x2c], ebx
mov dword [ebp - 0x28], ebx
mov dword [ebp - 0x24], ebx
mov dword [ebp - 0x20], ebx
mov dword [ebp - 4], ecx
mov ebx, edx
mov esi, eax
xor eax, eax
push ebp
push 0x4b89fa
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [esi + 0x20], 0
test ebx, ebx
je 0x4b89cf
mov eax, dword [ebp - 4]
xor edx, edx
push edx
push eax
xor edx, edx
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x28]
lea edx, [ebp - 0xc]
mov ecx, 8
mov eax, ebx
mov edi, dword [eax]
call dword [edi + 0xc]
cmp eax, 8
jne 0x4b89cf
lea eax, [ebp - 0x20]
lea edx, [ebp - 0xc]
mov ecx, 4
call sub.rtl250.bpl__System__UStrFromArray_qqrr20System_UnicodeStringpci
mov edx, dword [ebp - 0x20]
mov ecx, 0x4b8a14
mov eax, dword [sym.imp.AxComponentsRTL.bpl__Axrtl_System_Strutils_StrUtils_]
call sub.AxComponentsRTL.bpl__Axrtl_System_Strutils_StrUtils_SameStr_qqrx20System_UnicodeStringt1
test al, al
je 0x4b89cf
mov eax, dword [ebp - 8]
shl eax, 7
mov dword [esi + 8], eax
xor edx, edx
mov dword [ebp - 0x10], edx
xor edx, edx
push ebp
push 0x4b89c8
push dword fs:[edx]
mov dword fs:[edx], esp
xor edx, edx
push ebp
push 0x4b87e5
push dword fs:[edx]
mov dword fs:[edx], esp
add eax, 2
push eax
call sub.rtl250.bpl__System_GetMemory_qi
pop ecx
mov dword [ebp - 0x10], eax
mov edx, dword [esi + 8]
add edx, 2
mov eax, dword [ebp - 0x10]
call fcn.0040270c
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x4b87fe
mov eax, dword [ebp - 4]
xor edx, edx
push edx
push eax
xor edx, edx
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x28]
mov ecx, dword [esi + 8]
mov edx, dword [ebp - 0x10]
mov eax, ebx
mov ebx, dword [eax]
call dword [ebx + 0xc]
cmp eax, dword [esi + 8]
je 0x4b882a
call sub.rtl250.bpl__System__TryFinallyExit_qqrv
jmp 0x4b89cf
mov eax, dword [ebp - 4]
mov dword [esi + 0x14], eax
lea eax, [esi + 0xc]
mov edx, dword [sym.imp.rtl250.bpl__System_Sysutils_EmptyStr]
mov edx, dword [edx]
call sub.rtl250.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [esi + 0x10]
mov edx, dword [sym.imp.rtl250.bpl__System_Sysutils_EmptyStr]
mov edx, dword [edx]
call sub.rtl250.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov dword [esi + 4], 0xffffffff
mov eax, dword [ebp - 0x10]
mov ebx, dword [eax + 0x34]
test ebx, ebx
je 0x4b887e
lea eax, [ebp - 0x24]
mov edx, ebx
add edx, dword [ebp - 0x10]
mov ecx, 0
call sub.rtl250.bpl__System__LStrFromPChar_qqrr27System__AnsiStringT_us_i0__pcus
mov edx, dword [ebp - 0x24]
lea eax, [esi + 0xc]
call sub.rtl250.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
mov eax, dword [ebp - 0x10]
movzx eax, byte [eax + 0x38]
mov dword [esi + 4], eax
mov eax, dword [ebp - 0x10]
mov ebx, dword [eax + 0x3c]
test ebx, ebx
je 0x4b88af
lea eax, [ebp - 0x28]
mov edx, ebx
add edx, dword [ebp - 0x10]
mov ecx, 0
call sub.rtl250.bpl__System__LStrFromPChar_qqrr27System__AnsiStringT_us_i0__pcus
mov edx, dword [ebp - 0x28]
lea eax, [esi + 0x10]
call sub.rtl250.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
mov edx, dword [esi + 0xc]
mov ecx, 1
mov eax, 0x4b8a2c
call sub.rtl250.bpl__System_Pos_qqrx20System_UnicodeStringt1i
dec eax
jne 0x4b89ac
mov edi, 0x138
mov byte [ebp - 0x19], 1
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x48]
mov dword [ebp - 0x18], eax
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x44]
add eax, dword [ebp - 0x10]
add eax, 0x78
mov eax, dword [eax]
mov dword [ebp - 0x14], eax
mov bl, 1
cmp bl, 3
jne 0x4b891c
test byte [ebp - 0x14], 0x40
je 0x4b891c
mov eax, 0x3c
cmp byte [ebp - 0x19], 0
je 0x4b890b
lea edx, [edi + eax]
cmp edx, dword [ebp - 0x18]
jb 0x4b890f
xor edx, edx
jmp 0x4b8911
mov dl, 1
mov byte [ebp - 0x19], dl
cmp byte [ebp - 0x19], 0
je 0x4b896d
add edi, eax
mov ecx, ebx
mov eax, 1
shl eax, cl
and eax, dword [ebp - 0x14]
je 0x4b8967
lea eax, [ebp - 0x2c]
mov edx, dword [ebp - 0x10]
mov edx, dword [edx + 0x44]
add edx, dword [ebp - 0x10]
add edx, edi
call sub.rtl250.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
mov eax, dword [ebp - 0x2c]
call sub.rtl250.bpl__System__UStrLen_qqrx20System_UnicodeString
inc eax
add eax, eax
cmp byte [ebp - 0x19], 0
je 0x4b8956
lea edx, [edi + eax]
cmp edx, dword [ebp - 0x18]
jb 0x4b895a
xor edx, edx
jmp 0x4b895c
mov dl, 1
mov byte [ebp - 0x19], dl
cmp byte [ebp - 0x19], 0
je 0x4b896d
add edi, eax
inc ebx
cmp bl, 6
jne 0x4b88ed
cmp byte [ebp - 0x19], 0
je 0x4b89ac
lea eax, [esi + 0x18]
mov edx, dword [ebp - 0x10]
mov edx, dword [edx + 0x44]
mov ebx, dword [ebp - 0x10]
add edx, ebx
add edx, edi
call sub.rtl250.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
mov eax, dword [esi + 0x18]
call sub.rtl250.bpl__System__UStrLen_qqrx20System_UnicodeString
inc eax
add eax, eax
add edi, eax
cmp edi, dword [ebp - 0x18]
jae 0x4b89ac
lea eax, [esi + 0x1c]
mov edx, dword [ebp - 0x10]
mov edx, dword [edx + 0x44]
add edx, ebx
add edx, edi
call sub.rtl250.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
mov byte [esi + 0x20], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4b89cf
mov eax, dword [ebp - 0x10]
push eax
call sub.rtl250.bpl__System_FreeMemory_qpv
pop ecx
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4b8a01
lea eax, [ebp - 0x2c]
call sub.rtl250.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x28]
mov edx, 2
call sub.rtl250.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x20]
call sub.rtl250.bpl__System__UStrClr_qqrpv
ret