Function at 0x524608
Capabilities:
Identify system language via api

Disassembly:
push ebp
mov ebp, esp
mov ecx, 6
push 0
push 0
dec ecx
jne 0x524610
push ebx
push esi
push edi
mov esi, 0x7d3608
xor eax, eax
push ebp
push 0x524821
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, esi
mov edx, 0x52483c
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [esi + 4]
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [esi + 8]
mov edx, 0x524850
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [esi + 0xc]
mov edx, 0x524864
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 0x10]
call fcn.0040b4a8
mov edx, dword [ebp - 0x10]
lea eax, [ebp - 4]
mov ecx, 0x52487c
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x524806
mov ecx, dword [ebp - 4]
mov dl, 1
mov eax, dword [0x408858]
call fcn.0040891c
mov ebx, eax
lea eax, [ebp - 0xc]
mov edx, 0x52489c
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [esi]
push eax
lea eax, [ebp - 0x14]
push eax
mov ecx, 0x5248b4
mov edx, dword [ebp - 0xc]
mov eax, ebx
mov edi, dword [eax]
call dword [edi]
mov edx, dword [ebp - 0x14]
mov eax, esi
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [esi + 4]
push eax
lea eax, [ebp - 0x18]
push eax
mov ecx, 0x5248cc
mov edx, dword [ebp - 0xc]
mov eax, ebx
mov edi, dword [eax]
call dword [edi]
mov edx, dword [ebp - 0x18]
lea eax, [esi + 4]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [esi + 8]
push eax
lea eax, [ebp - 0x1c]
push eax
mov ecx, 0x5248e4
mov edx, dword [ebp - 0xc]
mov eax, ebx
mov edi, dword [eax]
call dword [edi]
mov edx, dword [ebp - 0x1c]
lea eax, [esi + 8]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [esi + 0xc]
push eax
lea eax, [ebp - 0x20]
push eax
mov ecx, 0x5248f8
mov edx, dword [ebp - 0xc]
mov eax, ebx
mov edi, dword [eax]
call dword [edi]
mov edx, dword [ebp - 0x20]
lea eax, [esi + 0xc]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
call fcn.0040b1ec
movzx eax, ax
call fcn.004025bc
movzx eax, ax
lea edx, [ebp - 8]
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 8]
mov edx, 0x52490c
mov eax, ebx
mov edi, dword [eax]
call dword [edi + 0x5c]
test al, al
je 0x5247ff
push 0x52489c
lea eax, [ebp - 0xc]
push eax
mov ecx, dword [ebp - 8]
mov edx, 0x52490c
mov eax, ebx
mov edi, dword [eax]
call dword [edi]
mov edx, dword [ebp - 0xc]
mov eax, ebx
call sub.rtl120.bpl__Inifiles_TCustomIniFile_SectionExists_qqrx20System_UnicodeString
test al, al
je 0x5247ff
mov eax, dword [esi]
push eax
lea eax, [ebp - 0x24]
push eax
mov ecx, 0x5248b4
mov edx, dword [ebp - 0xc]
mov eax, ebx
mov edi, dword [eax]
call dword [edi]
mov edx, dword [ebp - 0x24]
mov eax, esi
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [esi + 4]
push eax
lea eax, [ebp - 0x28]
push eax
mov ecx, 0x5248cc
mov edx, dword [ebp - 0xc]
mov eax, ebx
mov edi, dword [eax]
call dword [edi]
mov edx, dword [ebp - 0x28]
lea eax, [esi + 4]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [esi + 8]
push eax
lea eax, [ebp - 0x2c]
push eax
mov ecx, 0x5248e4
mov edx, dword [ebp - 0xc]
mov eax, ebx
mov edi, dword [eax]
call dword [edi]
mov edx, dword [ebp - 0x2c]
lea eax, [esi + 8]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [esi + 0xc]
push eax
lea eax, [ebp - 0x30]
push eax
mov ecx, 0x5248f8
mov edx, dword [ebp - 0xc]
mov eax, ebx
mov edi, dword [eax]
call dword [edi]
mov edx, dword [ebp - 0x30]
lea eax, [esi + 0xc]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, ebx
call sub.rtl120.bpl__System_TObject_Free_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x524828
lea eax, [ebp - 0x30]
mov edx, 0xc
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret