Function at 0x4040b0
Capabilities:
Print debug messages

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffedc
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 0x14], ebx
mov esi, ecx
mov ebx, edx
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x404392
push dword fs:[eax]
mov dword fs:[eax], esp
push ebp
call fcn.0040405c
pop ecx
test al, al
je 0x40436d
xor eax, eax
mov dword [ebp - 8], eax
xor eax, eax
push ebp
push 0x404366
push dword fs:[eax]
mov dword fs:[eax], esp
call fcn.00401280
cmp dword [eax], 0
jne 0x404123
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 8], eax
call fcn.00401280
mov edx, dword [ebp - 8]
mov dword [eax], edx
mov ecx, esi
mov edx, ebx
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0x90]
cmp dword [ebp - 8], 0
je 0x40433d
mov eax, dword [ebp - 8]
cmp dword [eax + 8], 0
jle 0x40433d
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0xc], eax
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x10], eax
xor eax, eax
push ebp
push 0x404336
push dword fs:[eax]
mov dword fs:[eax], esp
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov ebx, eax
call fcn.00401280
mov dword [eax], ebx
xor eax, eax
push ebp
push 0x4042e2
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
push ebp
push 0x4042b0
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 8]
mov edi, dword [eax + 8]
dec edi
cmp edi, 0
jl 0x40427e
mov edx, edi
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__Classes_TList_Get_qqri
mov esi, eax
mov edx, esi
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__Classes_TList_IndexOf_qqrpv
mov ebx, eax
cmp ebx, 0xffffffff
je 0x4041e6
mov edx, ebx
mov eax, dword [ebp - 0x10]
call sub.rtl70.bpl__Classes_TList_Get_qqri
cmp eax, 0x1e
jge 0x40421f
mov eax, esi
call sub.vcl70.bpl__Controls_TWinControl_Realign_qqrv
cmp ebx, 0xffffffff
je 0x404209
mov edx, ebx
mov eax, dword [ebp - 0x10]
call sub.rtl70.bpl__Classes_TList_Get_qqri
mov ecx, eax
inc ecx
mov edx, ebx
mov eax, dword [ebp - 0x10]
call sub.rtl70.bpl__Classes_TList_Put_qqripv
xor edx, edx
mov eax, dword [ebp - 0x10]
call sub.rtl70.bpl__Classes_TList_Add_qqrpv
mov edx, esi
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__Classes_TList_Add_qqrpv
jmp 0x404274
inc ebx
je 0x404274
mov eax, dword [sym.imp.rtl70.bpl__System_DebugHook]
cmp byte [eax], 0
je 0x404274
lea eax, [ebp - 0x14]
push eax
mov eax, dword [esi + 8]
mov dword [ebp - 0x24], eax
mov byte [ebp - 0x20], 0xb
lea edx, [ebp - 0x124]
mov eax, dword [esi]
call sub.rtl70.bpl__System_TObject_ClassName_qqrp17System_TMetaClass
lea eax, [ebp - 0x124]
mov dword [ebp - 0x1c], eax
mov byte [ebp - 0x18], 4
lea edx, [ebp - 0x24]
mov ecx, 1
mov eax, 0x4043a8
call sub.rtl70.bpl__Sysutils_Format_qqrx17System_AnsiStringpx14System_TVarRecxi
mov eax, dword [ebp - 0x14]
call main
push eax
call sub.KERNEL32.DLL_OutputDebugStringA
dec edi
cmp edi, 0xffffffff
jne 0x4041ba
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4042b7
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 8]
call fcn.00401280
mov ebx, dword [eax]
call fcn.00401280
mov edx, dword [ebp - 8]
mov dword [eax], edx
mov dword [ebp - 8], ebx
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x40437c
cmp dword [ebp - 8], 0
je 0x404365
call fcn.00401280
xor edx, edx
mov dword [eax], edx
lea eax, [ebp - 8]
call sub.rtl70.bpl__Sysutils_FreeAndNil_qqrpv
ret
mov ecx, esi
mov edx, ebx
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0x90]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x404399
lea eax, [ebp - 0x14]
call sub.rtl70.bpl__System__LStrClr_qqrpv
ret