Function at 0x8f3a9c
Capabilities:
Get geographical location

Disassembly:
push ebp
mov ebp, esp
mov ecx, 9
push 0
push 0
dec ecx
jne 0x8f3aa4
push ecx
push ebx
push esi
push edi
mov esi, edx
mov ebx, eax
xor eax, eax
push ebp
push 0x8f3f74
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, esi
sub eax, 2
jae 0x8f3b46
lea ecx, [ebp - 8]
mov edx, 0x8f3f90
mov eax, ebx
call fcn.008ffeb4
cmp dword [ebp - 8], 0
je 0x8f3f51
lea edx, [ebp - 4]
mov eax, dword [ebp - 8]
call fcn.00427c78
cmp dword [ebp - 4], 0
je 0x8f3b46
lea ecx, [ebp - 0x10]
mov edx, 0x8f3fb0
mov eax, dword [ebp - 4]
mov edi, dword [eax]
call dword [edi + 0x4c]
mov edx, dword [ebp - 0x10]
lea eax, [ebx + 0x78]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea ecx, [ebp - 0x14]
mov edx, 0x8f3fcc
mov eax, dword [ebp - 4]
mov edi, dword [eax]
call dword [edi + 0x4c]
mov edx, dword [ebp - 0x14]
lea eax, [ebx + 0x7c]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea ecx, [ebp - 0x18]
mov edx, 0x8f3ff0
mov eax, dword [ebp - 4]
mov edi, dword [eax]
call dword [edi + 0x4c]
mov edx, dword [ebp - 0x18]
lea eax, [ebx + 0x80]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, esi
test eax, eax
je 0x8f3b55
sub eax, 2
jne 0x8f3bdb
lea edx, [ebp - 0xc]
mov eax, ebx
call fcn.008f8844
lea edx, [ebp - 0x1c]
mov eax, ebx
call fcn.008f8884
mov eax, dword [ebp - 0x1c]
xor edx, edx
call sub.rtl140.bpl__Sysutils_StrToIntDef_qqrx20System_UnicodeStringi
mov edi, eax
cmp dword [ebp - 0xc], 0
je 0x8f3b7f
test edi, edi
jne 0x8f3ba3
push 0x8f4014
push 0
lea eax, [ebp - 0x1c]
push eax
push 0xffffffffffffffff
push 1
push 0
mov ecx, 0x8f4044
mov edx, ebx
mov eax, ebx
call fcn.0090abe0
jmp 0x8f3f51
mov ecx, edi
mov edx, dword [ebp - 0xc]
mov eax, dword [ebx + 0xc4]
call fcn.00596314
lea ecx, [ebp - 8]
mov edx, 0x8f4068
mov eax, ebx
call fcn.008ffeb4
cmp dword [ebp - 8], 0
je 0x8f3bdb
mov eax, dword [0x9f3064]
mov eax, dword [eax + 0xc4]
mov edx, dword [ebp - 8]
call fcn.00596114
test esi, esi
je 0x8f3be8
sub esi, 3
jne 0x8f3f51
lea ecx, [ebp - 8]
mov edx, 0x8f4088
mov eax, ebx
call fcn.008ffeb4
cmp dword [ebp - 8], 0
jne 0x8f3c21
push 0x8f40ac
push 0
lea eax, [ebp - 0x1c]
push eax
push 0xffffffffffffffff
push 1
push 0
mov ecx, 0x8f40dc
mov edx, ebx
mov eax, ebx
call fcn.0090abe0
jmp 0x8f3f51
lea edx, [ebp - 4]
mov eax, dword [ebp - 8]
call fcn.00427c78
lea eax, [ebp - 0x20]
mov ecx, dword [ebp - 8]
mov edx, 0x8f410c
call sub.rtl140.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x20]
mov cx, 1
mov eax, ebx
call fcn.008ec50c
cmp dword [ebp - 4], 0
je 0x8f3f51
mov edx, 0x8f4144
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov dword [ebx + 0x88], eax
mov dword [ebx + 0x8c], edx
lea ecx, [ebp - 0x24]
mov edx, 0x8f4160
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x4c]
mov edx, dword [ebp - 0x24]
lea eax, [ebx + 0xb0]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea ecx, [ebp - 0x28]
mov edx, 0x8f4180
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x4c]
mov edx, dword [ebp - 0x28]
lea eax, [ebx + 0xb4]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea ecx, [ebp - 0x2c]
mov edx, 0x8f41a0
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x4c]
mov edx, dword [ebp - 0x2c]
lea eax, [ebx + 0xa8]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, 0x8f41b8
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov dword [ebx + 0xac], eax
mov edx, 0x8f41d4
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov byte [ebx + 0xec], al
mov edx, 0x8f41f8
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov dword [ebx + 0xa0], eax
mov dword [ebx + 0xa4], edx
mov edx, 0x8f4220
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov dword [ebx + 0x90], eax
mov dword [ebx + 0x94], edx
lea ecx, [ebp - 0x30]
mov edx, 0x8f423c
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x4c]
mov edx, dword [ebp - 0x30]
lea eax, [ebx + 0xb8]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea ecx, [ebp - 0x34]
mov edx, 0x8f425c
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x4c]
mov edx, dword [ebp - 0x34]
lea eax, [ebx + 0xbc]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, 0x8f427c
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov dword [ebx + 0x98], eax
mov dword [ebx + 0x9c], edx
push 0
push 0
lea ecx, [ebp - 0x38]
mov edx, 0x8f42a0
mov eax, ebx
call fcn.008ffeb4
mov eax, dword [ebp - 0x38]
call sub.rtl140.bpl__Sysutils_StrToInt64Def_qqrx20System_UnicodeStringxj
mov dword [ebx + 0x100], eax
mov dword [ebx + 0x104], edx
mov eax, dword [0x9f1178]
mov eax, dword [eax]
call fcn.0056c62c
test al, al
jne 0x8f3dd3
lea ecx, [ebp - 0x3c]
mov edx, 0x8f42cc
mov eax, ebx
call fcn.008eea6c
mov edx, dword [ebp - 0x3c]
mov eax, dword [0x9f1178]
mov eax, dword [eax]
xor ecx, ecx
call fcn.00561d80
test al, al
jne 0x8f3dd3
xor eax, eax
jmp 0x8f3dd5
mov al, 1
mov byte [ebx + 0x108], al
push 0x8f42f0
push dword [ebx + 0xc0]
push dword [ebx + 0xa4]
push dword [ebx + 0xa0]
lea eax, [ebp - 0x44]
call sub.rtl140.bpl__Sysutils_IntToStr_qqrj
push dword [ebp - 0x44]
lea eax, [ebp - 0x40]
mov edx, 3
call sub.rtl140.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x40]
mov cx, 1
mov eax, ebx
call fcn.008ec50c
mov edx, 0x8f4314
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov dword [ebx + 0xd8], eax
mov edx, 0x8f433c
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov dword [ebx + 0xdc], eax
mov edx, 0x8f4360
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov byte [ebx + 0xe0], al
mov edx, 0x8f4384
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov byte [ebx + 0xe1], al
mov edx, 0x8f43ac
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov dword [ebx + 0xe8], eax
mov edx, 0x8f43d4
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov byte [ebx + 0xe2], al
mov edx, 0x8f43fc
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov byte [ebx + 0xe3], al
mov edx, 0x8f4424
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov byte [ebx + 0xe4], al
mov edx, 0x8f444c
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov byte [ebx + 0xe5], al
mov edx, 0x8f4478
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov byte [ebx + 0xe6], al
mov edx, 0x8f44a0
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov dword [ebx + 0xf0], eax
mov edx, 0x8f44cc
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov byte [ebx + 0xf4], al
lea ecx, [ebp - 0x48]
mov edx, 0x8f4504
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x4c]
mov edx, dword [ebp - 0x48]
lea eax, [ebx + 0xf8]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea edx, [ebp - 0x4c]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x8c]
mov edx, dword [ebp - 0x4c]
lea eax, [ebx + 0xcc]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, 0x8f4534
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov edx, eax
mov eax, dword [0x9f10b4]
mov eax, dword [eax]
call fcn.004ccf10
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x8f3f7b
lea eax, [ebp - 0x4c]
mov edx, 0x12
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 4]
call sub.rtl140.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
ret