Function at 0x421fd4
Capabilities:
Hide graphical window

Disassembly:
push ebp
mov ebp, esp
push 0
push 0
push 0
push 0
push ebx
push esi
push edi
mov edi, ecx
mov ebx, eax
xor eax, eax
push ebp
push 0x422207
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebx + 0x38]
mov dword [edi], eax
mov eax, dword [ebx + 0x14]
test eax, eax
je 0x42201c
push 0
mov edx, dword [ebx + 0xc]
mov edx, dword [edx + 0x38]
push edx
push 0x30
push eax
call sub.user32.dll_SendMessageA
push 5
mov eax, dword [ebx + 0x14]
push eax
call sub.user32.dll_ShowWindow
mov eax, dword [ebx + 0x1c]
test eax, eax
je 0x42202a
add dword [edi], eax
jmp 0x4221ec
mov esi, dword [ebx + 0xc]
mov eax, dword [esi + 0x24]
call sub.rtl120.bpl__System__DynArrayHigh_qqrv
mov edx, dword [esi + 0x24]
mov eax, dword [edx + eax*4]
mov edx, dword [eax]
call dword [edx + 0x28]
cmp ebx, eax
je 0x4221ec
mov eax, ebx
mov edx, dword [0x420d8c]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x42206f
mov edx, dword [ebp + 8]
mov eax, ebx
call fcn.00422be8
test al, al
je 0x42206f
add dword [edi], 4
jmp 0x4221ec
lea edx, [ebp - 4]
mov eax, dword [esi]
call sub.rtl120.bpl__System_TObject_ClassName_qqrv
mov eax, dword [ebp - 4]
push eax
mov eax, dword [esi + 0x24]
mov edx, dword [ebx + 0x28]
mov eax, dword [eax + edx*4 + 4]
mov edx, dword [eax]
call dword [edx + 0x28]
mov eax, dword [eax]
lea edx, [ebp - 8]
call sub.rtl120.bpl__System_TObject_ClassName_qqrv
mov edx, dword [ebp - 8]
pop eax
call sub.rtl120.bpl__System__UStrEqual_qqrv
jne 0x422126
mov eax, ebx
mov edx, dword [0x420c4c]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x4220be
add dword [edi], 4
jmp 0x4221ec
mov eax, ebx
mov edx, dword [0x420f50]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x4220d7
add dword [edi], 6
jmp 0x4221ec
mov eax, ebx
mov edx, dword [0x4210c0]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x4220f0
add dword [edi], 8
jmp 0x4221ec
mov eax, ebx
mov edx, dword [0x420d8c]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x422109
add dword [edi], 8
jmp 0x4221ec
mov eax, ebx
mov edx, dword [0x421240]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x4221ec
add dword [edi], 8
jmp 0x4221ec
mov eax, dword [esi + 0x24]
mov edx, dword [ebx + 0x28]
mov eax, dword [eax + edx*4 + 4]
mov edx, dword [eax]
call dword [edx + 0x28]
mov edx, dword [0x420d8c]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x4221e9
mov eax, dword [esi + 0x24]
mov edx, dword [ebx + 0x28]
mov eax, dword [eax + edx*4 + 4]
mov edx, dword [eax]
call dword [edx + 0x28]
mov edx, dword [ebp + 8]
call fcn.00422be8
test al, al
je 0x4221e9
mov eax, dword [esi + 0x24]
mov edx, dword [ebx + 0x28]
mov eax, dword [eax + edx*4 - 4]
mov edx, dword [eax]
call dword [edx + 0x28]
mov edx, dword [0x420d8c]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x4221e9
mov eax, dword [esi + 0x24]
mov edx, dword [ebx + 0x28]
mov eax, dword [eax + edx*4 - 4]
mov edx, dword [eax]
call dword [edx + 0x28]
mov edx, dword [ebp + 8]
call fcn.00422be8
test al, al
je 0x4221e9
mov eax, dword [esi + 0x24]
call sub.rtl120.bpl__System__DynArrayLength_qqrv
mov edx, dword [ebx + 0x28]
add edx, 2
cmp eax, edx
jle 0x4221e9
mov eax, dword [esi + 0x24]
mov edx, dword [ebx + 0x28]
mov eax, dword [eax + edx*4 + 8]
mov edx, dword [eax]
call dword [edx + 0x28]
mov eax, dword [eax]
lea edx, [ebp - 0xc]
call sub.rtl120.bpl__System_TObject_ClassName_qqrv
mov eax, dword [ebp - 0xc]
push eax
lea edx, [ebp - 0x10]
mov eax, dword [esi]
call sub.rtl120.bpl__System_TObject_ClassName_qqrv
mov edx, dword [ebp - 0x10]
pop eax
call sub.rtl120.bpl__System__UStrEqual_qqrv
jne 0x4221e9
add dword [edi], 8
jmp 0x4221ec
add dword [edi], 0xc
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x42220e
lea eax, [ebp - 0x10]
mov edx, 4
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret