Function at 0x41c2620
Capabilities:
Check for peb ntglobalflag flag

Disassembly:
push ebp
mov ebp, esp
push 0
push 0
push ebx
push esi
mov ebx, edx
mov esi, eax
xor eax, eax
push ebp
push 0x41c2875
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
mov dword [ebx], eax
lea eax, [ebx + 4]
call sub.rtl60.bpl__System__LStrClr_qqrpv
call sub.rtl60.bpl__Sysutils_Now_qqrv
fstp qword [ebx + 0x18]
wait
mov byte [ebx + 0x20], 1
mov byte [ebx + 0x21], 0
mov byte [ebx + 0x22], 0
lea eax, [ebp - 4]
call fcn.041c25fc
mov edx, dword [ebp - 4]
lea eax, [ebx + 0x10]
call sub.rtl60.bpl__System__LStrAsg_qqrpvpxv
call sub.rtl60.bpl__Sysutils_Date_qqrv
fstp qword [ebx + 0x28]
wait
mov byte [ebx + 0x30], 0
lea eax, [ebx + 0x34]
call sub.rtl60.bpl__System__LStrClr_qqrpv
xor eax, eax
mov dword [ebx + 0x40], eax
mov dword [ebx + 0x44], eax
xor eax, eax
mov dword [ebx + 0x48], eax
mov dword [ebx + 0x4c], eax
xor eax, eax
mov dword [ebx + 0x50], eax
mov dword [ebx + 0x54], eax
xor eax, eax
mov dword [ebx + 0x58], eax
mov dword [ebx + 0x5c], eax
mov dword [ebx + 0x60], 1
mov byte [ebx + 0x64], 0
lea eax, [ebx + 0x68]
call sub.rtl60.bpl__System__LStrClr_qqrpv
xor eax, eax
mov dword [ebx + 0x6c], eax
lea eax, [ebx + 0x70]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebx + 0x74]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebx + 0x78]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebx + 0x7c]
call sub.rtl60.bpl__System__LStrClr_qqrpv
xor eax, eax
mov dword [ebx + 0x90], eax
mov dword [ebx + 0x94], eax
xor eax, eax
mov dword [ebx + 0x98], eax
mov dword [ebx + 0x9c], eax
xor eax, eax
mov dword [ebx + 0xa0], eax
mov dword [ebx + 0xa4], eax
xor eax, eax
mov dword [ebx + 0xa8], eax
mov dword [ebx + 0xac], eax
mov byte [ebx + 0xb0], 0
mov byte [ebx + 0xb1], 0
mov byte [ebx + 0xb2], 0
call sub.rtl60.bpl__Sysutils_Date_qqrv
fstp qword [ebx + 0xb8]
wait
call sub.rtl60.bpl__Sysutils_Date_qqrv
fstp qword [ebx + 0xc0]
wait
xor eax, eax
mov dword [ebx + 0xc8], eax
lea eax, [ebp - 8]
call fcn.041925f0
mov edx, dword [ebp - 8]
lea eax, [ebx + 0xcc]
call sub.rtl60.bpl__System__LStrAsg_qqrpvpxv
xor eax, eax
mov dword [ebx + 0xd0], eax
mov dword [ebx + 0xd4], 0x3ff00000
xor eax, eax
mov dword [ebx + 0xd8], eax
mov dword [ebx + 0xdc], eax
mov byte [ebx + 0xe0], 0
xor eax, eax
mov dword [ebx + 0xe8], eax
mov dword [ebx + 0xec], eax
mov byte [ebx + 0xf0], 0
mov dword [ebx + 0xf4], esi
xor eax, eax
mov dword [ebx + 0xf8], eax
mov byte [ebx + 0xfc], 0
xor eax, eax
mov dword [ebx + 0x100], eax
mov dword [ebx + 0x104], eax
xor eax, eax
mov dword [ebx + 0x108], eax
mov dword [ebx + 0x10c], eax
xor eax, eax
mov dword [ebx + 0x110], eax
mov dword [ebx + 0x114], eax
xor eax, eax
mov dword [ebx + 0x118], eax
mov dword [ebx + 0x11c], eax
xor eax, eax
mov dword [ebx + 0x120], eax
xor eax, eax
mov dword [ebx + 0x124], eax
xor eax, eax
mov dword [ebx + 0x128], eax
xor eax, eax
mov dword [ebx + 0x12c], eax
xor eax, eax
mov dword [ebx + 0x130], eax
xor eax, eax
mov dword [ebx + 0x134], eax
xor eax, eax
mov dword [ebx + 0x138], eax
mov dword [ebx + 0x13c], eax
xor eax, eax
mov dword [ebx + 0x140], eax
xor eax, eax
mov dword [ebx + 0x148], eax
mov dword [ebx + 0x14c], eax
xor eax, eax
mov dword [ebx + 0x150], eax
xor eax, eax
mov dword [ebx + 0x154], eax
xor eax, eax
mov dword [ebx + 0x158], eax
mov dword [ebx + 0x15c], eax
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x41c287c
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
ret