Function at 0x41a8c60
Capabilities:
Access peb ldr_data
Check for peb ntglobalflag flag

Disassembly:
push ebp
mov ebp, esp
xor ecx, ecx
push ecx
push ecx
push ecx
push ecx
push ecx
push ecx
push ecx
push ecx
push ebx
push esi
mov ebx, edx
mov esi, eax
xor eax, eax
push ebp
push 0x41a8f56
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], 1
mov byte [ebx + 0x22], 0
lea eax, [ebp - 4]
call fcn.041a8c3c
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 edx, [ebp - 0xc]
mov eax, dword [0x41fb164]
mov ecx, dword [eax]
call dword [ecx + 0xc]
mov eax, dword [ebp - 0xc]
lea edx, [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x10]
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x1c]
mov edx, dword [eax + 0x70]
lea eax, [ebx + 0x70]
call sub.rtl60.bpl__System__LStrAsg_qqrpvpxv
lea edx, [ebp - 0x14]
mov eax, dword [0x41fb164]
mov ecx, dword [eax]
call dword [ecx + 0xc]
mov eax, dword [ebp - 0x14]
lea edx, [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x10]
mov eax, dword [ebp - 0x10]
mov edx, dword [eax]
call dword [edx + 0x1c]
mov edx, dword [eax + 0x74]
lea eax, [ebx + 0x74]
call sub.rtl60.bpl__System__LStrAsg_qqrpvpxv
lea edx, [ebp - 0x1c]
mov eax, dword [0x41fb164]
mov ecx, dword [eax]
call dword [ecx + 0xc]
mov eax, dword [ebp - 0x1c]
lea edx, [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x10]
mov eax, dword [ebp - 0x18]
mov edx, dword [eax]
call dword [edx + 0x1c]
mov eax, dword [eax + 0x134]
mov dword [ebx + 0x134], eax
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_Now_qqrv
fstp qword [ebx + 0xb8]
wait
call sub.rtl60.bpl__Sysutils_Now_qqrv
fstp qword [ebx + 0xc0]
wait
xor eax, eax
mov dword [ebx + 0xc8], eax
lea eax, [ebp - 0x20]
call fcn.0419a7cc
mov edx, dword [ebp - 0x20]
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 + 0x148], eax
mov dword [ebx + 0x14c], eax
xor eax, eax
mov dword [ebx + 0x150], eax
xor eax, eax
mov dword [ebx + 0x158], eax
mov dword [ebx + 0x15c], eax
xor eax, eax
mov dword [ebx + 0x160], eax
xor eax, eax
mov dword [ebx + 0x164], eax
xor eax, eax
mov dword [ebx + 0x168], eax
mov dword [ebx + 0x16c], eax
mov byte [ebx + 0x1a1], 1
mov byte [ebx + 0x1a2], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x41a8f5d
lea eax, [ebp - 0x20]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x1c]
call sub.rtl60.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x18]
call sub.rtl60.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x14]
call sub.rtl60.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x10]
call sub.rtl60.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0xc]
call sub.rtl60.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 8]
call sub.rtl60.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 4]
call sub.rtl60.bpl__System__LStrClr_qqrpv
ret