Function at 0x4b3d54
Capabilities:
Connect to http server

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffdc
push ebx
push esi
xor ebx, ebx
mov dword [ebp - 0x24], ebx
mov dword [ebp - 0xc], ebx
mov dword [ebp - 0x10], ebx
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov ebx, eax
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__System__LStrAddRef_qqrpv
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x4b3f2c
push dword fs:[eax]
mov dword fs:[eax], esp
cmp dword [ebx + 0x30], 0
jne 0x4b3ec7
lea eax, [ebp - 0x10]
push eax
lea eax, [ebp - 0x14]
push eax
lea ecx, [ebp - 0xc]
lea edx, [ebp - 0x18]
mov eax, dword [ebp - 8]
call fcn.004b3a5c
mov eax, dword [ebx + 8]
test eax, eax
je 0x4b3dba
push eax
call sub.wininet.dll_InternetCloseHandle
mov eax, dword [ebx + 0xc]
test eax, eax
je 0x4b3dc7
push eax
call sub.wininet.dll_InternetCloseHandle
push 0
push 0
push 3
push 0
push 0
mov ax, word [ebp - 0x14]
push eax
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
mov eax, dword [ebx + 4]
push eax
call sub.wininet.dll_InternetConnectA
mov esi, eax
mov dword [ebx + 0xc], esi
push 4
lea eax, [ebp + 8]
push eax
push 6
push esi
call sub.wininet.dll_InternetSetOptionA
push 4
lea eax, [ebp + 8]
push eax
push 5
mov eax, dword [ebx + 0xc]
push eax
call sub.wininet.dll_InternetSetOptionA
push 4
lea eax, [ebp + 8]
push eax
push 7
mov eax, dword [ebx + 0xc]
push eax
call sub.wininet.dll_InternetSetOptionA
push 4
lea eax, [ebp + 8]
push eax
push 8
mov eax, dword [ebx + 0xc]
push eax
call sub.wininet.dll_InternetSetOptionA
push 4
lea eax, [ebp + 8]
push eax
push 2
mov eax, dword [ebx + 0xc]
push eax
call sub.wininet.dll_InternetSetOptionA
mov dword [ebp - 0x1c], 0x80007380
lea edx, [ebp - 0x24]
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__Sysutils_LowerCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x24]
mov eax, 0x4b3f48
call sub.rtl70.bpl__System__LStrPos_qqrv
test eax, eax
jle 0x4b3e69
or dword [ebp - 0x1c], 0x800000
push 0
mov eax, dword [ebp - 0x1c]
push eax
push 0
push 0
push 0
mov eax, dword [ebp - 0x10]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
mov eax, dword [ebx + 0xc]
push eax
call sub.wininet.dll_HttpOpenRequestA
mov dword [ebx + 8], eax
mov dword [ebp - 0x20], 4
lea eax, [ebp - 0x20]
push eax
lea eax, [ebp - 0x1c]
push eax
push 0x1f
mov eax, dword [ebx + 8]
push eax
call sub.wininet.dll_InternetQueryOptionA
or dword [ebp - 0x1c], 0x100
push 4
lea eax, [ebp - 0x1c]
push eax
push 0x1f
mov eax, dword [ebx + 8]
push eax
call sub.wininet.dll_InternetSetOptionA
jmp 0x4b3f07
push 0
lea eax, [ebp - 8]
push eax
lea eax, [ebp - 4]
push eax
push 0x4b3f54
lea eax, [ebx + 0x20]
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x18
lea eax, [ebp + 8]
push eax
lea eax, [ebp + 8]
push eax
lea eax, [ebp + 8]
push eax
lea eax, [ebp + 8]
push eax
push 0x4b3f60
lea eax, [ebx + 0x20]
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x1c
mov bl, 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4b3f33
lea eax, [ebp - 0x24]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x10]
mov edx, 4
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
ret