Function at 0x499ad0
Capabilities:
Get geographical location

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffa8
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 0x58], ebx
mov dword [ebp - 0x54], ebx
mov dword [ebp - 0x50], ebx
mov dword [ebp - 8], ebx
mov edi, ecx
mov ebx, edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp + 0xc]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp + 8]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x499d2d
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x50]
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__Sysutils_LowerCase_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x50]
mov eax, 0x499d4c
call sub.rtl120.bpl__System_Pos_qqrx20System_UnicodeStringt1
dec eax
jne 0x499b69
xor ecx, ecx
mov dl, 1
mov eax, dword [0x48f9b8]
call fcn.0048fee8
mov dword [ebp - 0xc], eax
mov ecx, dword [ebp - 0xc]
mov dl, 1
mov eax, dword [0x464a64]
call fcn.00476e78
mov edx, eax
mov esi, dword [ebp - 0xc]
mov eax, esi
call fcn.00498bf8
mov eax, esi
call fcn.00498bec
call fcn.0047b224
jmp 0x499b7a
xor ecx, ecx
mov dl, 1
mov eax, dword [0x48eb28]
call fcn.0048fee8
mov dword [ebp - 0xc], eax
xor eax, eax
push ebp
push 0x499cf1
push dword fs:[eax]
mov dword fs:[eax], esp
cmp dword [0x4c3644], 0
je 0x499be7
mov eax, dword [ebp - 0xc]
add eax, 0x90
mov edx, dword [0x4c3644]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea edx, [ebp - 0x54]
mov eax, dword [0x4c3648]
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov edx, dword [ebp - 0x54]
mov eax, dword [ebp - 0xc]
add eax, 0x94
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0xc]
add eax, 0xa8
mov edx, dword [0x4c364c]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0xc]
add eax, 0xac
mov edx, dword [0x4c3650]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 0x4c]
mov edx, 0x40
call fcn.00401d28
push 0x20
lea eax, [ebp - 0x4c]
push eax
push 0x59
push 0x400
call sub.kernel32.dll_GetLocaleInfoW
lea eax, [ebp - 8]
lea edx, [ebp - 0x4c]
mov ecx, 0x20
call sub.rtl120.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
lea eax, [ebp - 0x4c]
mov edx, 0x40
call fcn.00401d28
push 0x20
lea eax, [ebp - 0x4c]
push eax
push 0x5a
push 0x400
call sub.kernel32.dll_GetLocaleInfoW
push dword [ebp - 8]
push 0x499d6c
lea eax, [ebp - 0x58]
lea edx, [ebp - 0x4c]
mov ecx, 0x20
call sub.rtl120.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
push dword [ebp - 0x58]
lea eax, [ebp - 8]
mov edx, 3
call sub.rtl120.bpl__System__UStrCatN_qqrv
push 0
push 0
mov eax, ebx
call sub.rtl120.bpl__Classes_TStream_SetPosition_qqrxj
cmp dword [ebp + 8], 0
je 0x499c7e
mov eax, dword [ebp - 0xc]
add eax, 0xfc
mov edx, dword [ebp + 8]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
cmp dword [ebp + 0xc], 0
je 0x499c94
mov eax, dword [ebp - 0xc]
add eax, 0x16c
mov edx, dword [ebp + 0xc]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0xc]
mov dword [eax + 0x374], 0x78
mov eax, dword [ebp - 0xc]
mov dword [eax + 0x1a0], ebx
mov eax, dword [ebp - 0xc]
add eax, 0x118
mov edx, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0xc]
add eax, 0xec
mov edx, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0xc]
mov dword [eax + 0x188], edi
mov eax, dword [ebp - 0xc]
call fcn.004982e8
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x499cf8
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__System_TObject_Free_qqrv
ret