Function at 0x4afdd8
Capabilities:
Read data from internet
Receive data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffbe0
push ebx
push esi
xor ebx, ebx
mov dword [ebp - 0x420], ebx
mov dword [ebp - 0x41c], ebx
mov dword [ebp - 0x418], ebx
mov dword [ebp - 0x414], ebx
mov ebx, ecx
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x4b00ce
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
push ebp
push 0x4b00a1
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x1c]
mov edx, 0xa00000
call fcn.004021dc
mov eax, dword [ebp - 4]
xor edx, edx
mov dword [eax + 0x14], edx
cmp dword [ebp - 8], 0
jne 0x4aff54
push 0
push 0
push 0
push 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 8]
push eax
call sub.wininet.dll_HttpSendRequestA
test eax, eax
je 0x4b006b
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TMemoryStream_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0xc], eax
xor eax, eax
push ebp
push 0x4aff4d
push dword fs:[eax]
mov dword fs:[eax], esp
jmp 0x4afe9d
cmp dword [ebp - 0x10], 0
je 0x4afebd
lea edx, [ebp - 0x410]
mov ecx, dword [ebp - 0x10]
mov eax, dword [ebp - 0xc]
mov esi, dword [eax]
call dword [esi + 0x10]
lea eax, [ebp - 0x10]
push eax
push 0x400
lea eax, [ebp - 0x410]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 8]
push eax
call sub.wininet.dll_InternetReadFile
test eax, eax
jne 0x4afe86
push 0
push 0
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__Classes_TStream_SetPosition_qqrxj
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx]
mov ecx, eax
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x1c]
mov eax, dword [ebp - 0xc]
mov esi, dword [eax]
call dword [esi + 0xc]
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx]
mov edx, dword [ebp - 4]
mov dword [edx + 0x14], eax
test bl, bl
je 0x4aff15
lea edx, [ebp - 0x414]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x1c]
call sub.rtl70.bpl__Sysutils_StrPas_qqrpxc
mov eax, dword [ebp - 0x414]
mov edx, dword [ebp - 4]
add edx, 0x18
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
jmp 0x4aff37
lea edx, [ebp - 0x418]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x1c]
call sub.rtl70.bpl__Sysutils_StrPas_qqrpxc
mov edx, dword [ebp - 0x418]
mov eax, dword [ebp - 4]
add eax, 0x18
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4b006b
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrLen_qqrx17System_AnsiString
push eax
lea eax, [ebp - 8]
call sub.rtl70.bpl__System__UniqueStringA_qqrr17System_AnsiString
push eax
push 0
push 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 8]
push eax
call sub.wininet.dll_HttpSendRequestA
test eax, eax
je 0x4b006b
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TMemoryStream_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0xc], eax
xor eax, eax
push ebp
push 0x4b0064
push dword fs:[eax]
mov dword fs:[eax], esp
jmp 0x4affb4
cmp dword [ebp - 0x10], 0
je 0x4affd4
lea edx, [ebp - 0x410]
mov ecx, dword [ebp - 0x10]
mov eax, dword [ebp - 0xc]
mov esi, dword [eax]
call dword [esi + 0x10]
lea eax, [ebp - 0x10]
push eax
push 0x400
lea eax, [ebp - 0x410]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 8]
push eax
call sub.wininet.dll_InternetReadFile
test eax, eax
jne 0x4aff9d
push 0
push 0
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__Classes_TStream_SetPosition_qqrxj
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx]
mov ecx, eax
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x1c]
mov eax, dword [ebp - 0xc]
mov esi, dword [eax]
call dword [esi + 0xc]
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx]
mov edx, dword [ebp - 4]
mov dword [edx + 0x14], eax
test bl, bl
je 0x4b002c
lea edx, [ebp - 0x41c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x1c]
call sub.rtl70.bpl__Sysutils_StrPas_qqrpxc
mov eax, dword [ebp - 0x41c]
mov edx, dword [ebp - 4]
add edx, 0x18
call sub.rtl70.bpl__System_Utf8ToAnsi_qqrx17System_AnsiString
jmp 0x4b004e
lea edx, [ebp - 0x420]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x1c]
call sub.rtl70.bpl__Sysutils_StrPas_qqrpxc
mov edx, dword [ebp - 0x420]
mov eax, dword [ebp - 4]
add eax, 0x18
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4b006b
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4b00a8
mov eax, dword [ebp - 4]
mov eax, dword [eax + 8]
push eax
call sub.wininet.dll_InternetCloseHandle
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xc]
push eax
call sub.wininet.dll_InternetCloseHandle
mov eax, dword [ebp - 4]
xor edx, edx
mov dword [eax + 8], edx
mov eax, dword [ebp - 4]
xor edx, edx
mov dword [eax + 0xc], edx
ret