Function at 0x4076a8
Capabilities:
Parse url

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffff004
push eax
add esp, 0xfffff378
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 0x1c88], ebx
mov esi, ecx
mov ebx, edx
mov dword [ebp - 4], eax
mov edi, dword [ebp + 0x18]
xor eax, eax
push ebp
push 0x4078e4
push dword fs:[eax]
mov dword fs:[eax], esp
test ebx, ebx
je 0x4076e8
mov eax, ebx
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
test esi, esi
je 0x4076f5
mov eax, esi
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
test edi, edi
je 0x407702
mov eax, edi
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
cmp dword [ebp + 0x14], 0
je 0x407712
mov eax, dword [ebp + 0x14]
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
cmp dword [ebp + 0x10], 0
je 0x407722
mov eax, dword [ebp + 0x10]
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
cmp dword [ebp + 0xc], 0
je 0x407732
mov eax, dword [ebp + 0xc]
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
cmp dword [ebp + 8], 0
je 0x407740
mov eax, dword [ebp + 8]
mov word [eax], 0
mov byte [ebp - 5], 0
lea edx, [ebp - 0x1c88]
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__Sysutils_Trim_qqrx20System_UnicodeString
cmp dword [ebp - 0x1c88], 0
je 0x4078cb
lea eax, [ebp - 0x44]
mov edx, 0x3c
call fcn.00401ba0
lea eax, [ebp - 0x84]
mov edx, 0x40
call fcn.00401ba0
lea eax, [ebp - 0x284]
mov edx, 0x200
call fcn.00401ba0
lea eax, [ebp - 0x384]
mov edx, pe_nt_image_headers32
call fcn.00401ba0
lea eax, [ebp - 0x484]
mov edx, pe_nt_image_headers32
call fcn.00401ba0
lea eax, [ebp - 0x1484]
mov edx, 0x1000
call fcn.00401ba0
lea eax, [ebp - 0x1c84]
mov edx, 0x800
call fcn.00401ba0
mov dword [ebp - 0x44], 0x3c
lea eax, [ebp - 0x84]
mov dword [ebp - 0x40], eax
mov dword [ebp - 0x3c], 0x40
lea eax, [ebp - 0x284]
mov dword [ebp - 0x34], eax
mov dword [ebp - 0x30], 0x200
lea eax, [ebp - 0x384]
mov dword [ebp - 0x28], eax
mov dword [ebp - 0x24], pe_nt_image_headers32
lea eax, [ebp - 0x484]
mov dword [ebp - 0x20], eax
mov dword [ebp - 0x1c], pe_nt_image_headers32
lea eax, [ebp - 0x1484]
mov dword [ebp - 0x18], eax
mov dword [ebp - 0x14], 0x1000
lea eax, [ebp - 0x1c84]
mov dword [ebp - 0x10], eax
mov dword [ebp - 0xc], 0x800
lea eax, [ebp - 0x44]
push eax
push 0
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_lstrlenW
push eax
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.wininet.dll_InternetCrackUrlW
test eax, eax
je 0x4078cb
test ebx, ebx
je 0x407868
mov eax, ebx
mov edx, dword [ebp - 0x40]
call sub.rtl120.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
test esi, esi
je 0x407876
mov eax, esi
mov edx, dword [ebp - 0x34]
call sub.rtl120.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
test edi, edi
je 0x407884
mov eax, edi
mov edx, dword [ebp - 0x18]
call sub.rtl120.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
cmp dword [ebp + 0x14], 0
je 0x407895
mov eax, dword [ebp + 0x14]
mov edx, dword [ebp - 0x10]
call sub.rtl120.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
cmp dword [ebp + 0x10], 0
je 0x4078a6
mov eax, dword [ebp + 0x10]
mov edx, dword [ebp - 0x28]
call sub.rtl120.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
cmp dword [ebp + 0xc], 0
je 0x4078b7
mov eax, dword [ebp + 0xc]
mov edx, dword [ebp - 0x20]
call sub.rtl120.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
cmp dword [ebp + 8], 0
je 0x4078c7
mov eax, dword [ebp + 8]
movzx edx, word [ebp - 0x2c]
mov word [eax], dx
mov byte [ebp - 5], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4078eb
lea eax, [ebp - 0x1c88]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret