Function at 0x421fbc
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 0x4221ef
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 0x422004
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 0x422012
add dword [edi], eax
jmp 0x4221d4
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 0x4221d4
mov eax, ebx
mov edx, dword [0x420d74]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x422057
mov edx, dword [ebp + 8]
mov eax, ebx
call fcn.00422bd0
test al, al
je 0x422057
add dword [edi], 4
jmp 0x4221d4
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 0x42210e
mov eax, ebx
mov edx, dword [0x420c34]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x4220a6
add dword [edi], 4
jmp 0x4221d4
mov eax, ebx
mov edx, dword [0x420f38]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x4220bf
add dword [edi], 6
jmp 0x4221d4
mov eax, ebx
mov edx, dword [0x4210a8]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x4220d8
add dword [edi], 8
jmp 0x4221d4
mov eax, ebx
mov edx, dword [0x420d74]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x4220f1
add dword [edi], 8
jmp 0x4221d4
mov eax, ebx
mov edx, dword [0x421228]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x4221d4
add dword [edi], 8
jmp 0x4221d4
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 [0x420d74]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x4221d1
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.00422bd0
test al, al
je 0x4221d1
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 [0x420d74]
call sub.rtl120.bpl__System__IsClass_qqrp14System_TObjectp17System_TMetaClass
test al, al
je 0x4221d1
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.00422bd0
test al, al
je 0x4221d1
mov eax, dword [esi + 0x24]
call sub.rtl120.bpl__System__DynArrayLength_qqrv
mov edx, dword [ebx + 0x28]
add edx, 2
cmp eax, edx
jle 0x4221d1
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 0x4221d1
add dword [edi], 8
jmp 0x4221d4
add dword [edi], 0xc
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4221f6
lea eax, [ebp - 0x10]
mov edx, 4
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret