Function at 0x4764ac
Capabilities:
Connect to http server
Create http request
Read data from internet
Receive data
Send data
Send http request

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffa7c
push ebx
push esi
push edi
xor edx, edx
mov dword [ebp - 0x584], edx
mov dword [ebp - 0x580], edx
mov dword [ebp - 0x14], edx
mov dword [ebp - 0x18], edx
mov dword [ebp - 0x24], edx
mov dword [ebp - 0x10], eax
xor eax, eax
push ebp
push 0x476996
push dword fs:[eax]
mov dword fs:[eax], esp
xor edx, edx
push ebp
push 0x47695c
push dword fs:[edx]
mov dword fs:[edx], esp
xor edx, edx
push ebp
push 0x47693a
push dword fs:[edx]
mov dword fs:[edx], esp
lea eax, [ebp - 0x2c]
push eax
lea ecx, [ebp - 0x18]
lea edx, [ebp - 0x14]
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x48]
call fcn.004762fc
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0xd], 0
je 0x476533
mov eax, dword [ebp - 0x10]
mov byte [eax + 0x66], 0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x476963
mov eax, dword [ebp - 0x10]
cmp dword [eax + 0x44], 0
je 0x47655a
push 0
push 0
push 0
push 1
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x44]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.wininet.dll_InternetOpenA
mov dword [ebp - 0xc], eax
jmp 0x47656c
push 0
push 0
push 0
push 1
push 0
call sub.wininet.dll_InternetOpenA
mov dword [ebp - 0xc], eax
cmp dword [ebp - 0xc], 0
jne 0x47658e
mov eax, 0x4769ac
call sub.vcl70.bpl__Dialogs_ShowMessage_qqrx17System_AnsiString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x476963
push 0
push 0
push 3
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x58]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x54]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
mov ax, word [ebp - 0x2c]
push eax
mov eax, dword [ebp - 0x14]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
mov eax, dword [ebp - 0xc]
push eax
call sub.wininet.dll_InternetConnectA
mov dword [ebp - 8], eax
cmp dword [ebp - 8], 0
jne 0x4765e8
mov eax, 0x4769c8
call sub.vcl70.bpl__Dialogs_ShowMessage_qqrx17System_AnsiString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x476963
mov eax, dword [ebp - 0x10]
cmp dword [eax + 0x5c], 0
jne 0x4765f8
mov ebx, 0x4769dc
jmp 0x4765fd
mov ebx, 0x4769e0
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0x65], 0
je 0x47660a
xor esi, esi
jmp 0x47660f
mov esi, 0x80000000
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax + 0x40]
lea eax, [ebp - 0x580]
mov edx, 0x4769f0
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 0x580]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
mov dword [ebp - 0x28], eax
push 0
push esi
lea eax, [ebp - 0x28]
push eax
push 0
push 0x4769fc
mov eax, dword [ebp - 0x18]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
push ebx
mov eax, dword [ebp - 8]
push eax
call sub.wininet.dll_HttpOpenRequestA
mov dword [ebp - 4], eax
cmp dword [ebp - 4], 0
jne 0x476679
mov eax, 0x476a10
call sub.vcl70.bpl__Dialogs_ShowMessage_qqrx17System_AnsiString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x476963
mov eax, dword [ebp - 0x10]
cmp dword [eax + 0x5c], 0
jne 0x476695
push 0
push 0
push 0
push 0
mov eax, dword [ebp - 4]
push eax
call sub.wininet.dll_HttpSendRequestA
jmp 0x4766bd
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x5c]
call sub.rtl70.bpl__System__LStrLen_qqrx17System_AnsiString
push eax
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x5c]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
push 0x2f
push 0x476a24
mov eax, dword [ebp - 4]
push eax
call sub.wininet.dll_HttpSendRequestA
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0xd], 0
je 0x4766e6
push ebp
call fcn.00476480
pop ecx
mov eax, dword [ebp - 0x10]
mov byte [eax + 0x66], 0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x476963
xor eax, eax
mov dword [ebp - 0x20], eax
mov dword [ebp - 0x1c], 0x400
mov eax, dword [ebp - 0x1c]
call sub.rtl70.bpl__System__GetMem_qqri
mov ebx, eax
lea eax, [ebp - 0x20]
push eax
lea eax, [ebp - 0x1c]
push eax
push ebx
push 5
mov eax, dword [ebp - 4]
push eax
call sub.wininet.dll_HttpQueryInfoA
cmp eax, 1
sbb eax, eax
inc eax
mov edx, dword [ebp - 0x10]
mov byte [edx + 0x66], al
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0xd], 0
je 0x47674c
mov eax, ebx
call sub.rtl70.bpl__System__FreeMem_qqrpv
push ebp
call fcn.00476480
pop ecx
mov eax, dword [ebp - 0x10]
mov byte [eax + 0x66], 0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x476963
mov eax, dword [ebp - 0x10]
mov al, byte [eax + 0x66]
test al, al
jne 0x476763
mov edx, dword [ebp - 0x10]
cmp byte [edx + 0x64], 0
jne 0x476922
test al, al
je 0x476785
lea edx, [ebp - 0x584]
mov eax, ebx
call sub.rtl70.bpl__Sysutils_StrPas_qqrpxc
mov eax, dword [ebp - 0x584]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov edx, dword [ebp - 0x10]
mov dword [edx + 0x68], eax
mov eax, dword [ebp - 0x10]
xor edx, edx
mov dword [eax + 0x74], edx
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0x6c], 0
je 0x4767be
mov eax, dword [ebp - 0x10]
mov edx, dword [eax + 0x4c]
lea eax, [ebp - 0x178]
call sub.rtl70.bpl__System__Assign_qqrr15System_TTextRecx17System_AnsiString
mov edx, 1
lea eax, [ebp - 0x178]
call sub.rtl70.bpl__System__RewritFile_qqrr15System_TFileReci
call sub.rtl70.bpl__System___IOTest_qqrv
jmp 0x4767c9
mov eax, dword [ebp - 0x10]
add eax, 0x50
call sub.rtl70.bpl__System__LStrClr_qqrpv
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0xd], 0
je 0x476812
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0x6c], 0
je 0x4767eb
lea eax, [ebp - 0x178]
call sub.rtl70.bpl__System__Close_qqrr15System_TTextRec
call sub.rtl70.bpl__System___IOTest_qqrv
mov eax, ebx
call sub.rtl70.bpl__System__FreeMem_qqrpv
push ebp
call fcn.00476480
pop ecx
mov eax, dword [ebp - 0x10]
mov byte [eax + 0x66], 0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x476963
mov eax, dword [ebp - 0x10]
add eax, 0x70
push eax
push 0x401
lea eax, [ebp - 0x579]
push eax
mov eax, dword [ebp - 4]
push eax
call sub.wininet.dll_InternetReadFile
test eax, eax
je 0x4768c8
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x70]
test eax, eax
je 0x4768c8
mov edx, dword [ebp - 0x10]
cmp byte [edx + 0x6c], 0
je 0x476869
push 0
mov ecx, eax
lea edx, [ebp - 0x579]
lea eax, [ebp - 0x178]
call sub.rtl70.bpl__System__BlockWrite_qqrr15System_TFileRecpviri
call sub.rtl70.bpl__System___IOTest_qqrv
jmp 0x476898
lea eax, [ebp - 0x24]
lea edx, [ebp - 0x579]
mov ecx, 0x401
call sub.rtl70.bpl__System__LStrFromArray_qqrr17System_AnsiStringpci
mov eax, dword [ebp - 0x10]
mov edx, dword [eax + 0x70]
lea eax, [ebp - 0x24]
call sub.rtl70.bpl__System__LStrSetLength_qqrv
mov eax, dword [ebp - 0x10]
add eax, 0x50
mov edx, dword [ebp - 0x24]
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x70]
mov edx, dword [ebp - 0x10]
add dword [edx + 0x74], eax
mov eax, dword [ebp - 0x10]
cmp word [eax + 0x7a], 0
je 0x4767c9
mov eax, dword [ebp - 0x10]
push eax
push sym.P_Interface.bpl__Httpget_THTTPGetThread_UpdateProgress_qqrv
mov eax, dword [ebp - 0x10]
call sub.rtl70.bpl__Classes_TThread_Synchronize_qqrynpqqrv_v
jmp 0x4767c9
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0x6c], 0
je 0x4768e8
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x68]
mov edx, dword [ebp - 0x10]
cmp eax, dword [edx + 0x74]
sete al
mov edx, dword [ebp - 0x10]
mov byte [edx + 0x66], al
jmp 0x476909
mov eax, dword [ebp - 0x10]
mov edx, dword [eax + 0x74]
mov eax, dword [ebp - 0x10]
add eax, 0x50
call sub.rtl70.bpl__System__LStrSetLength_qqrv
mov eax, dword [ebp - 0x10]
cmp dword [eax + 0x74], 0
setne al
mov edx, dword [ebp - 0x10]
mov byte [edx + 0x66], al
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0x6c], 0
je 0x476922
lea eax, [ebp - 0x178]
call sub.rtl70.bpl__System__Close_qqrr15System_TTextRec
call sub.rtl70.bpl__System___IOTest_qqrv
mov eax, ebx
call sub.rtl70.bpl__System__FreeMem_qqrpv
push ebp
call fcn.00476480
pop ecx
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x476944
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x476963
mov eax, dword [ebp - 0x10]
mov byte [eax + 0x80], 1
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x47699d
lea eax, [ebp - 0x584]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x24]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x18]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
ret