Function at 0x478bf0
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 0x4790da
push dword fs:[eax]
mov dword fs:[eax], esp
xor edx, edx
push ebp
push 0x4790a0
push dword fs:[edx]
mov dword fs:[edx], esp
xor edx, edx
push ebp
push 0x47907e
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.00478a40
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0xd], 0
je 0x478c77
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 0x4790a7
mov eax, dword [ebp - 0x10]
cmp dword [eax + 0x44], 0
je 0x478c9e
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 0x478cb0
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 0x478cd2
mov eax, 0x4790f0
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 0x4790a7
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 0x478d2c
mov eax, 0x47910c
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 0x4790a7
mov eax, dword [ebp - 0x10]
cmp dword [eax + 0x5c], 0
jne 0x478d3c
mov ebx, 0x479120
jmp 0x478d41
mov ebx, 0x479124
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0x65], 0
je 0x478d4e
xor esi, esi
jmp 0x478d53
mov esi, 0x80000000
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax + 0x40]
lea eax, [ebp - 0x580]
mov edx, 0x479134
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 0x479140
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 0x478dbd
mov eax, 0x479154
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 0x4790a7
mov eax, dword [ebp - 0x10]
cmp dword [eax + 0x5c], 0
jne 0x478dd9
push 0
push 0
push 0
push 0
mov eax, dword [ebp - 4]
push eax
call sub.wininet.dll_HttpSendRequestA
jmp 0x478e01
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 0x479168
mov eax, dword [ebp - 4]
push eax
call sub.wininet.dll_HttpSendRequestA
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0xd], 0
je 0x478e2a
push ebp
call fcn.00478bc4
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 0x4790a7
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 0x478e90
mov eax, ebx
call sub.rtl70.bpl__System__FreeMem_qqrpv
push ebp
call fcn.00478bc4
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 0x4790a7
mov eax, dword [ebp - 0x10]
mov al, byte [eax + 0x66]
test al, al
jne 0x478ea7
mov edx, dword [ebp - 0x10]
cmp byte [edx + 0x64], 0
jne 0x479066
test al, al
je 0x478ec9
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 0x478f02
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 0x478f0d
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 0x478f56
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0x6c], 0
je 0x478f2f
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.00478bc4
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 0x4790a7
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 0x47900c
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x70]
test eax, eax
je 0x47900c
mov edx, dword [ebp - 0x10]
cmp byte [edx + 0x6c], 0
je 0x478fad
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 0x478fdc
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 0x478f0d
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 0x478f0d
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0x6c], 0
je 0x47902c
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 0x47904d
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 0x479066
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.00478bc4
pop ecx
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x479088
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4790a7
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 0x4790e1
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