Function at 0x581dec
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 0x582049
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, 0x582068
call sub.rtl120.bpl__System_Pos_qqrx20System_UnicodeStringt1
dec eax
jne 0x581e85
xor ecx, ecx
mov dl, 1
mov eax, dword [0x577cc8]
call fcn.005781f8
mov dword [ebp - 0xc], eax
mov ecx, dword [ebp - 0xc]
mov dl, 1
mov eax, dword [0x54cd64]
call fcn.0055f184
mov edx, eax
mov esi, dword [ebp - 0xc]
mov eax, esi
call fcn.00580f08
mov eax, esi
call fcn.00580efc
call fcn.00563530
jmp 0x581e96
xor ecx, ecx
mov dl, 1
mov eax, dword [0x576e38]
call fcn.005781f8
mov dword [ebp - 0xc], eax
xor eax, eax
push ebp
push 0x58200d
push dword fs:[eax]
mov dword fs:[eax], esp
cmp dword [0x59e348], 0
je 0x581f03
mov eax, dword [ebp - 0xc]
add eax, 0x90
mov edx, dword [0x59e348]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea edx, [ebp - 0x54]
mov eax, dword [0x59e34c]
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 [0x59e350]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0xc]
add eax, 0xac
mov edx, dword [0x59e354]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 0x4c]
mov edx, 0x40
call fcn.0040288c
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.0040288c
push 0x20
lea eax, [ebp - 0x4c]
push eax
push 0x5a
push 0x400
call sub.kernel32.dll_GetLocaleInfoW
push dword [ebp - 8]
push 0x582088
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 0x581f9a
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 0x581fb0
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.005805f8
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x582014
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__System_TObject_Free_qqrv
ret