Function at 0x40a49c
Capabilities:
Get file version info
Query environment variable

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x109
push 0
push 0
dec ecx
jne 0x40a4a4
push ebx
push esi
push edi
mov dword [ebp - 4], edx
mov dword [ebp - 0x10], eax
mov eax, dword [ebp - 4]
call sub.rtl170.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x40a704
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x828]
mov eax, dword [ebp - 4]
call sub.PsComponents.bpl__Allerafileutils_GetFileDate_qqr20System_UnicodeString
mov edx, dword [ebp - 0x828]
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x404]
call sub.vcl170.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x10]
call fcn.0040a260
push 0x800
lea eax, [ebp - 0x824]
push eax
mov eax, dword [ebp - 4]
call sub.rtl170.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_ExpandEnvironmentStringsW
lea edx, [ebp - 0xc]
lea eax, [ebp - 0x824]
call sub.rtl170.bpl__System_Sysutils_StrPas_qqrpxb
cmp dword [ebp - 0xc], 0
lea eax, [ebp - 0x14]
push eax
mov eax, dword [ebp - 0xc]
call sub.rtl170.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
mov esi, eax
push esi
call sub.version.dll_GetFileVersionInfoSizeW
mov ebx, eax
test ebx, ebx
jbe 0x40a6d9
mov eax, ebx
call sub.rtl170.bpl__System__GetMem_qqri
mov dword [ebp - 0x18], eax
mov eax, dword [ebp - 0x18]
push eax
push ebx
push 0
push esi
call sub.version.dll_GetFileVersionInfoW
lea eax, [ebp - 0x24]
push eax
lea eax, [ebp - 0x1c]
push eax
push 0x40a714
mov eax, dword [ebp - 0x18]
push eax
call sub.version.dll_VerQueryValueW
xor eax, eax
push ebp
push 0x40a62b
push dword fs:[eax]
mov dword fs:[eax], esp
push 0x40a758
lea ecx, [ebp - 0x82c]
mov eax, dword [ebp - 0x1c]
movzx eax, word [eax]
mov edx, 4
call sub.rtl170.bpl__System_Sysutils_IntToHex_qqrii
push dword [ebp - 0x82c]
mov eax, dword [ebp - 0x1c]
mov eax, dword [eax]
call fcn.00401ca4
movzx eax, ax
lea ecx, [ebp - 0x830]
mov edx, 4
call sub.rtl170.bpl__System_Sysutils_IntToHex_qqrii
push dword [ebp - 0x830]
push 0x40a78c
lea eax, [ebp - 8]
mov edx, 4
call sub.rtl170.bpl__System__UStrCatN_qqrv
lea eax, [ebp - 0x24]
push eax
lea eax, [ebp - 0x20]
push eax
lea eax, [ebp - 0x834]
mov ecx, 0x40a7a0
mov edx, dword [ebp - 8]
call sub.rtl170.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x834]
call sub.rtl170.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 0x18]
push eax
call sub.version.dll_VerQueryValueW
lea eax, [ebp - 0x838]
mov edx, dword [ebp - 0x20]
call sub.rtl170.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
mov edx, dword [ebp - 0x838]
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x3e4]
call sub.vcl170.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x40a635
lea eax, [ebp - 0x24]
push eax
lea eax, [ebp - 0x20]
push eax
lea eax, [ebp - 0x83c]
mov ecx, 0x40a7c4
mov edx, dword [ebp - 8]
call sub.rtl170.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x83c]
call sub.rtl170.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 0x18]
push eax
call sub.version.dll_VerQueryValueW
lea eax, [ebp - 0x840]
mov edx, dword [ebp - 0x20]
call sub.rtl170.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
mov edx, dword [ebp - 0x840]
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x3fc]
call sub.vcl170.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
lea eax, [ebp - 0x24]
push eax
lea eax, [ebp - 0x20]
push eax
lea eax, [ebp - 0x844]
mov ecx, 0x40a7f0
mov edx, dword [ebp - 8]
call sub.rtl170.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x844]
call sub.rtl170.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 0x18]
push eax
call sub.version.dll_VerQueryValueW
lea eax, [ebp - 0x848]
mov edx, dword [ebp - 0x20]
call sub.rtl170.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
mov edx, dword [ebp - 0x848]
mov eax, dword [ebp - 0x10]
mov eax, dword [eax + 0x400]
call sub.vcl170.bpl__Vcl_Controls_TControl_SetText_qqrx20System_UnicodeString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x40a70b
lea eax, [ebp - 0x848]
mov edx, 9
call sub.rtl170.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0xc]
mov edx, 3
call sub.rtl170.bpl__System__UStrArrayClr_qqrpvi
ret