Function at 0x5e5f54
Capabilities:
Get geographical location

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0x17
push 0
push 0
dec ecx
jne 0x5e5f5d
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov dword [ebp - 0x2d], ecx
mov byte [ebp - 0x29], dl
mov ebx, eax
xor eax, eax
push ebp
push 0x5e67aa
push dword fs:[eax]
mov dword fs:[eax], esp
mov dl, 1
mov eax, dword [0x5b0850]
call sub.rtl140.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0xc], eax
xor eax, eax
push ebp
push 0x5e672f
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, dword [ebx + 0x270]
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x3b8]
mov dl, 1
mov eax, dword [sym.imp.rtl140.bpl__Classes_TStringList_]
call sub.rtl140.bpl__Classes_TStringList__bctr_qqrv
mov dword [ebp - 4], eax
mov dl, 1
mov eax, dword [sym.imp.rtl140.bpl__Classes_TList_]
call sub.rtl140.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x10], eax
mov dword [ebp - 8], 0xffffffff
mov dword [ebp - 0x14], 0xffffffff
mov dword [ebp - 0x18], 0xffffffff
lea eax, [ebp - 0x28]
mov edx, dword [0x59d800]
call sub.rtl140.bpl__System__DynArrayClear_qqrrpvpv
lea eax, [ebp - 0x20]
call sub.rtl140.bpl__System__LStrClr_qqrpv
xor eax, eax
mov dword [ebp - 0x38], eax
mov eax, dword [ebx + 0x27c]
call fcn.005bc250
mov byte [ebp - 0x51], al
cmp byte [ebp - 0x51], 0
je 0x5e6020
lea edx, [ebp - 0x28]
mov eax, dword [ebx + 0x27c]
mov eax, dword [eax + 8]
call fcn.005badec
lea eax, [ebp - 0x50]
push eax
lea ecx, [ebp - 0x44]
movzx edx, byte [ebp - 0x29]
mov eax, ebx
call fcn.005e15f0
mov eax, dword [ebp - 0x44]
mov dword [ebp - 0x40], eax
mov edx, 0x5e67c4
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
xor eax, eax
mov dword [ebp - 0x3c], eax
cmp byte [ebp - 0x51], 0
je 0x5e60cc
mov eax, dword [ebp - 0x28]
call sub.rtl140.bpl__System__DynArrayHigh_qqrv
test eax, eax
jl 0x5e6124
inc eax
mov dword [ebp - 0x64], eax
xor esi, esi
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + esi*4]
mov eax, dword [eax + 0x18]
add dword [ebp - 0x3c], eax
imul eax, dword [ebp - 0x3c], 0x5a0
mov dword [ebp - 0x68], eax
fild dword [ebp - 0x68]
mov eax, dword [sym.imp.vcl140.bpl__Forms_Screen]
mov eax, dword [eax]
fild dword [eax + 0x44]
fdivp st(1)
call sub.rtl140.bpl__System__ROUND_qqrv
mov edi, eax
mov edx, 0x5e67e4
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
lea edx, [ebp - 0x70]
mov eax, edi
call sub.rtl140.bpl__Sysutils_IntToStr_qqri
mov edx, dword [ebp - 0x70]
lea eax, [ebp - 0x6c]
mov ecx, 0
call sub.rtl140.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov edx, dword [ebp - 0x6c]
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
inc esi
dec dword [ebp - 0x64]
jne 0x5e6066
jmp 0x5e6124
mov eax, ebx
call sub.vcl140.bpl__Controls_TControl_GetClientWidth_qqrv
imul eax, eax, 0x5a0
mov dword [ebp - 0x68], eax
fild dword [ebp - 0x68]
mov eax, dword [sym.imp.vcl140.bpl__Forms_Screen]
mov eax, dword [eax]
fild dword [eax + 0x44]
fdivp st(1)
call sub.rtl140.bpl__System__ROUND_qqrv
mov edi, eax
mov edx, 0x5e67e4
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
lea edx, [ebp - 0x78]
mov eax, edi
call sub.rtl140.bpl__Sysutils_IntToStr_qqri
mov edx, dword [ebp - 0x78]
lea eax, [ebp - 0x74]
mov ecx, 0
call sub.rtl140.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov edx, dword [ebp - 0x74]
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
cmp byte [ebp - 0x51], 0
je 0x5e6270
cmp word [ebx + 0x502], 0
je 0x5e6148
xor ecx, ecx
mov edx, ebx
mov eax, dword [ebx + 0x504]
call dword [ebx + 0x500]
mov edx, 0x5e67f8
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
mov eax, dword [ebp - 0x28]
call sub.rtl140.bpl__System__DynArrayHigh_qqrv
test eax, eax
jl 0x5e6249
inc eax
mov dword [ebp - 0x64], eax
xor esi, esi
cmp word [ebx + 0x4da], 0
je 0x5e618c
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + esi*4]
push eax
xor ecx, ecx
mov edx, ebx
mov eax, dword [ebx + 0x4dc]
call dword [ebx + 0x4d8]
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + esi*4]
call fcn.005b7fd8
mov byte [ebp - 0x59], al
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + esi*4]
movzx eax, byte [eax + 0x30]
mov byte [ebp - 0x5a], al
cmp byte [ebp - 0x5a], 0
je 0x5e61b5
lea eax, [ebp - 0x59]
call sub.vcl140.bpl__Controls_ChangeBiDiModeAlignment_qqrr18Classes_TAlignment
movzx eax, byte [ebp - 0x59]
sub al, 1
jb 0x5e61c5
je 0x5e61d4
dec al
je 0x5e61e3
jmp 0x5e61f0
mov edx, 0x5e6810
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
jmp 0x5e61f0
mov edx, 0x5e6820
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
jmp 0x5e61f0
mov edx, 0x5e6830
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
push ebp
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + esi*4]
lea edx, [ebp - 0x7c]
mov ecx, dword [eax]
call dword [ecx + 0x20]
mov eax, dword [ebp - 0x7c]
mov edx, dword [ebx + 0x27c]
mov edx, dword [edx + 0x10]
call fcn.005e5c40
pop ecx
mov edx, 0x5e6840
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
cmp word [ebx + 0x4ea], 0
je 0x5e623f
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + esi*4]
push eax
xor ecx, ecx
mov edx, ebx
mov eax, dword [ebx + 0x4ec]
call dword [ebx + 0x4e8]
inc esi
dec dword [ebp - 0x64]
jne 0x5e616b
mov edx, 0x5e6854
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
cmp word [ebx + 0x50a], 0
je 0x5e6270
xor ecx, ecx
mov edx, ebx
mov eax, dword [ebx + 0x50c]
call dword [ebx + 0x508]
mov eax, dword [ebp - 0x40]
mov dword [ebp - 0x44], eax
cmp dword [ebp - 0x44], 0
je 0x5e64ef
mov edx, dword [ebp - 0x44]
mov eax, ebx
call fcn.005e57dc
test al, al
je 0x5e62b0
cmp word [ebx + 0x4c2], 0
je 0x5e62c3
mov eax, dword [ebp - 0x44]
push eax
xor ecx, ecx
mov edx, ebx
mov eax, dword [ebx + 0x4c4]
call dword [ebx + 0x4c0]
test al, al
jne 0x5e62c3
xor ecx, ecx
mov edx, dword [ebp - 0x44]
mov eax, dword [ebp - 0x4c]
call dword [ebp - 0x50]
mov dword [ebp - 0x44], eax
jmp 0x5e64e5
xor esi, esi
jmp 0x5e648a
cmp byte [ebp - 0x51], 0
je 0x5e62fa
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + esi*4]
call sub.rtl140.bpl__Classes_TCollectionItem_GetIndex_qqrv
mov dword [ebp - 0x58], eax
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + esi*4]
movzx eax, byte [eax + 0x44]
mov byte [ebp - 0x59], al
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + esi*4]
movzx eax, byte [eax + 0x30]
mov byte [ebp - 0x5a], al
jmp 0x5e6312
mov dword [ebp - 0x58], 0xffffffff
movzx eax, byte [ebx + 0x40a]
mov byte [ebp - 0x59], al
movzx eax, byte [ebx + 0x61]
mov byte [ebp - 0x5a], al
cmp byte [ebp - 0x51], 0
je 0x5e6328
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + esi*4]
test byte [eax + 0x3c], 0x80
je 0x5e6483
lea eax, [ebp - 0x24]
push eax
mov ecx, dword [ebp - 0x58]
mov edx, dword [ebp - 0x44]
mov eax, ebx
call fcn.005e19c0
mov edx, 0x5e67f8
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
cmp byte [ebp - 0x5a], 0
je 0x5e6354
lea eax, [ebp - 0x59]
call sub.vcl140.bpl__Controls_ChangeBiDiModeAlignment_qqrr18Classes_TAlignment
movzx eax, byte [ebp - 0x59]
dec al
je 0x5e6362
dec al
je 0x5e6371
jmp 0x5e637e
mov edx, 0x5e6820
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
jmp 0x5e637e
mov edx, 0x5e6830
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
mov edx, dword [ebx + 0x64]
mov eax, dword [ebx + 0x270]
call sub.vcl140.bpl__Graphics_TCanvas_SetFont_qqrp14Graphics_TFont
mov byte [ebx + 0x861], 0
mov eax, dword [ebp - 0x58]
push eax
push 0
mov ecx, dword [ebx + 0x270]
mov edx, dword [ebp - 0x44]
mov eax, ebx
mov edi, dword [eax]
call dword [edi + 0x49c]
mov eax, dword [ebx + 0x27c]
call fcn.005bc234
cmp eax, dword [ebp - 0x58]
jne 0x5e6463
mov edx, dword [ebp - 0x44]
mov eax, ebx
call fcn.005d9c64
mov dword [ebp - 0x34], eax
mov eax, dword [ebp - 0x34]
cmp eax, dword [ebp - 0x38]
je 0x5e6401
mov eax, dword [ebp - 0x34]
mov dword [ebp - 0x38], eax
lea eax, [ebp - 0x20]
call sub.rtl140.bpl__System__LStrClr_qqrpv
mov eax, dword [ebp - 0x34]
dec eax
test eax, eax
jl 0x5e6401
inc eax
mov dword [ebp - 0x64], eax
lea eax, [ebp - 0x20]
mov edx, 0x5e6868
call sub.rtl140.bpl__System__LStrCat_qqrv
dec dword [ebp - 0x64]
jne 0x5e63ef
cmp dword [ebp - 0x34], 0
jle 0x5e6441
mov edx, dword [ebp - 0x20]
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
mov edx, 0x5e687c
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
push ebp
mov eax, dword [ebx + 0x270]
mov edx, dword [eax + 0x40]
mov eax, dword [ebp - 0x24]
call fcn.005e5c40
pop ecx
mov edx, 0x5e6840
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
jmp 0x5e6483
push ebp
mov eax, dword [ebx + 0x270]
mov edx, dword [eax + 0x40]
mov eax, dword [ebp - 0x24]
call fcn.005e5c40
pop ecx
mov edx, 0x5e6840
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
jmp 0x5e6483
push ebp
mov eax, dword [ebx + 0x270]
mov edx, dword [eax + 0x40]
mov eax, dword [ebp - 0x24]
call fcn.005e5c40
pop ecx
mov edx, 0x5e6840
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
cmp byte [ebp - 0x51], 0
je 0x5e64a4
inc esi
cmp byte [ebp - 0x51], 0
je 0x5e62ca
mov eax, dword [ebp - 0x28]
call sub.rtl140.bpl__System__DynArrayLength_qqrv
cmp esi, eax
jl 0x5e62ca
mov edx, 0x5e6854
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
mov eax, dword [ebp - 0xc]
call fcn.005b4590
cmp word [ebx + 0x4d2], 0
je 0x5e64d7
mov eax, dword [ebp - 0x44]
push eax
xor ecx, ecx
mov edx, ebx
mov eax, dword [ebx + 0x4d4]
call dword [ebx + 0x4d0]
xor ecx, ecx
mov edx, dword [ebp - 0x44]
mov eax, dword [ebp - 0x4c]
call dword [ebp - 0x50]
mov dword [ebp - 0x44], eax
cmp dword [ebp - 0x44], 0
jne 0x5e6280
mov edx, 0x5e688c
mov eax, dword [ebp - 0xc]
call fcn.005b44e0
lea eax, [ebp - 0x1c]
mov edx, 0x5e68a4
call sub.rtl140.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x5e659d
inc eax
mov dword [ebp - 0x64], eax
xor esi, esi
lea eax, [ebp - 0x80]
mov edx, dword [ebp - 0x1c]
call sub.rtl140.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
lea eax, [ebp - 0x80]
push eax
lea eax, [ebp - 0x84]
push eax
mov dword [ebp - 0x94], esi
mov byte [ebp - 0x90], 0
lea ecx, [ebp - 0x98]
mov edx, esi
mov eax, dword [ebp - 4]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x98]
mov dword [ebp - 0x8c], eax
mov byte [ebp - 0x88], 0x11
lea edx, [ebp - 0x94]
mov ecx, 1
mov eax, 0x5e68e4
call sub.rtl140.bpl__Sysutils_Format_qqrx20System_UnicodeStringpx14System_TVarRecxi
mov edx, dword [ebp - 0x84]
pop eax
call sub.rtl140.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, dword [ebp - 0x80]
lea eax, [ebp - 0x1c]
mov ecx, 0
call sub.rtl140.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
inc esi
dec dword [ebp - 0x64]
jne 0x5e6520
lea eax, [ebp - 0x1c]
mov edx, 0x5e6908
call sub.rtl140.bpl__System__LStrCat_qqrv
lea eax, [ebp - 0x1c]
mov edx, 0x5e6918
call sub.rtl140.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 8]
dec eax
test eax, eax
jl 0x5e667d
inc eax
mov dword [ebp - 0x64], eax
xor esi, esi
mov edx, esi
mov eax, dword [ebp - 0x10]
call sub.rtl140.bpl__Classes_TList_Get_qqri
call sub.vcl140.bpl__Graphics_ColorToRGB_qqr15Graphics_TColor
mov dword [ebp - 0x3c], eax
lea eax, [ebp - 0x9c]
mov edx, dword [ebp - 0x1c]
call sub.rtl140.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
lea eax, [ebp - 0x9c]
push eax
lea eax, [ebp - 0xa0]
push eax
mov eax, dword [ebp - 0x3c]
and eax, 0xff
mov dword [ebp - 0xb8], eax
mov byte [ebp - 0xb4], 0
mov eax, dword [ebp - 0x3c]
shr eax, 8
and eax, 0xff
mov dword [ebp - 0xb0], eax
mov byte [ebp - 0xac], 0
mov eax, dword [ebp - 0x3c]
shr eax, 0x10
and eax, 0xff
mov dword [ebp - 0xa8], eax
mov byte [ebp - 0xa4], 0
lea edx, [ebp - 0xb8]
mov ecx, 2
mov eax, 0x5e6930
call sub.rtl140.bpl__Sysutils_Format_qqrx20System_UnicodeStringpx14System_TVarRecxi
mov edx, dword [ebp - 0xa0]
pop eax
call sub.rtl140.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, dword [ebp - 0x9c]
lea eax, [ebp - 0x1c]
mov ecx, 0
call sub.rtl140.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
inc esi
dec dword [ebp - 0x64]
jne 0x5e65cc
lea eax, [ebp - 0x1c]
mov edx, 0x5e6908
call sub.rtl140.bpl__System__LStrCat_qqrv
push 2
lea eax, [ebp - 0x5e]
push eax
push 0xd
push 0x400
call sub.kernel32.dll_GetLocaleInfoW
test eax, eax
je 0x5e66b6
cmp word [ebp - 0x5e], 0x30
jne 0x5e66b6
lea eax, [ebp - 0x1c]
mov edx, 0x5e696c
call sub.rtl140.bpl__System__LStrCat_qqrv
jmp 0x5e66c3
lea eax, [ebp - 0x1c]
mov edx, 0x5e6994
call sub.rtl140.bpl__System__LStrCat_qqrv
lea eax, [ebp - 0x1c]
mov edx, 0x5e69bc
call sub.rtl140.bpl__System__LStrCat_qqrv
push dword [ebp - 0x1c]
lea edx, [ebp - 0xbc]
mov eax, dword [ebp - 0xc]
call fcn.005b44c8
push dword [ebp - 0xbc]
push 0x5e6908
mov eax, dword [ebp - 0x2d]
mov edx, 3
call sub.rtl140.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x10]
call sub.rtl140.bpl__System_TObject_Free_qqrv
mov edx, dword [ebx + 0x270]
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x3cc]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x5e6736
mov eax, dword [ebp - 0xc]
call sub.rtl140.bpl__System_TObject_Free_qqrv
ret