Function at 0x46b610
Capabilities:
Create thread

Disassembly:
push ebp
mov ebp, esp
mov ecx, 4
push 0
push 0
dec ecx
jne 0x46b618
push ecx
push ebx
push esi
push edi
mov esi, edx
mov dword [ebp - 0xc], eax
xor eax, eax
push ebp
push 0x46b962
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0xc]
cmp dword [eax + 0x3a4], 0
jne 0x46b66c
mov dl, 1
mov eax, dword [0x43f678]
call fcn.00449788
mov ebx, eax
mov eax, dword [ebp - 0xc]
mov dword [ebx + 0xc], eax
mov eax, dword [ebp - 0xc]
add eax, 0x3a4
mov edx, ebx
test edx, edx
je 0x46b667
sub edx, 0xffffffc0
call sub.rtl250.bpl__System__IntfCopy_qqrr44System__DelphiInterface_17System_IInterface_x44System__DelphiInterface_17System_IInterf
mov eax, esi
mov edx, dword [ebp - 0xc]
mov edx, dword [edx + 0x3a4]
call sub.rtl250.bpl__System__IntfCopy_qqrr44System__DelphiInterface_17System_IInterface_x44System__DelphiInterface_17System_IInterf
mov eax, dword [ebp - 0xc]
cmp byte [eax + 0x3c4], 0
je 0x46b929
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x3a4]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jne 0x46b929
lea eax, [ebp - 0x18]
mov edx, dword [ebp - 0xc]
mov edx, dword [edx + 0x3a4]
call sub.rtl250.bpl__System__IntfCopy_qqrr44System__DelphiInterface_17System_IInterface_x44System__DelphiInterface_17System_IInterf
lea eax, [ebp - 0x24]
mov edx, dword [ebp - 0xc]
mov edx, dword [edx + 0x3a4]
mov ecx, 0x46b970
call sub.rtl250.bpl__System__IntfCast_qqrr44System__DelphiInterface_17System_IInterface_x44System__DelphiInterface_17System_IInterf
mov eax, dword [ebp - 0x24]
mov edx, dword [eax]
call dword [edx + 0x18]
xor eax, eax
mov dword [ebp - 8], eax
push ebp
call fcn.0046b358
pop ecx
lea ecx, [ebp - 0x14]
mov edx, 0x46b98c
mov eax, dword [ebp - 0xc]
call fcn.0044818c
mov ebx, dword [0x4cd4d8]
mov ebx, dword [ebx]
mov dl, 0x7c
mov eax, dword [ebp - 0x14]
call ebx
test eax, eax
jle 0x46b7ae
mov dword [ebp - 0x20], eax
mov dword [ebp - 0x1c], 1
xor eax, eax
push ebp
push 0x46b798
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0x10]
push eax
mov ebx, dword [0x4cd518]
mov ebx, dword [ebx]
mov cl, 0x7c
mov edx, dword [ebp - 0x1c]
mov eax, dword [ebp - 0x14]
call ebx
mov eax, dword [0x4d1450]
call sub.rtl250.bpl__System__DynArrayHigh_qqrpxv
mov esi, eax
test esi, esi
jl 0x46b78e
inc esi
xor ebx, ebx
mov edi, ebx
add edi, edi
add edi, edi
add edi, edi
sub edi, ebx
mov eax, dword [0x4d1450]
mov eax, dword [eax + edi*4]
mov ecx, dword [0x4cd380]
mov ecx, dword [ecx]
mov edx, dword [ebp - 0x10]
call ecx
test al, al
je 0x46b78a
mov eax, dword [0x4d1450]
cmp byte [eax + edi*4 + 0x18], 0
je 0x46b78e
push ebp
mov eax, dword [0x4d1450]
mov eax, dword [eax + edi*4]
mov edx, 0x46b9a0
call fcn.0046aac0
pop ecx
jmp 0x46b78e
inc ebx
dec esi
jne 0x46b745
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x46b7a2
inc dword [ebp - 0x1c]
dec dword [ebp - 0x20]
jne 0x46b70e
mov eax, dword [ebp - 0xc]
call fcn.00445c94
test al, al
je 0x46b7d7
mov eax, dword [ebp - 0xc]
cmp dword [eax + 0x33c], 0
je 0x46b7d7
push ebp
mov edx, 0x46b9a0
mov eax, 0x46b9e4
call fcn.0046aac0
pop ecx
mov eax, dword [ebp - 0xc]
call fcn.00445cb4
test al, al
je 0x46b800
mov eax, dword [ebp - 0xc]
cmp dword [eax + 0x33c], 0
je 0x46b800
push ebp
mov edx, 0x46b9a0
mov eax, 0x46ba0c
call fcn.0046aac0
pop ecx
mov eax, dword [ebp - 0xc]
call fcn.00445cd8
test al, al
je 0x46b826
cmp dword [0x4cc590], 0
je 0x46b826
push ebp
mov edx, 0x46b9a0
mov eax, 0x46ba30
call fcn.0046aac0
pop ecx
mov eax, dword [ebp - 0x18]
mov edx, dword [eax]
call dword [edx + 0xc]
xor eax, eax
push ebp
push 0x46b87c
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 8]
dec eax
test eax, eax
jl 0x46b872
inc eax
mov dword [ebp - 0x20], eax
mov dword [ebp - 0x1c], 0
mov eax, dword [ebp - 4]
mov edx, dword [ebp - 0x1c]
mov ecx, dword [eax + edx*8 + 4]
mov eax, dword [ebp - 4]
mov edx, dword [ebp - 0x1c]
mov edx, dword [eax + edx*8]
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x28]
inc dword [ebp - 0x1c]
dec dword [ebp - 0x20]
jne 0x46b84f
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x46b886
mov eax, dword [ebp - 0x18]
mov edx, dword [eax]
call dword [edx + 0x10]
mov eax, dword [ebp - 0xc]
cmp byte [eax + 0x418], 0
jne 0x46b929
mov eax, dword [ebp - 0xc]
cmp byte [eax + 0x419], 0
jne 0x46b8b7
call sub.kernel32.dll_GetCurrentThreadId
cmp eax, dword [0x4ccf54]
jne 0x46b8eb
mov eax, 0xfa
call fcn.004355d0
test al, al
jne 0x46b8eb
mov eax, dword [ebp - 0xc]
add eax, 0x3fc
push eax
push 0
mov eax, dword [ebp - 0xc]
push eax
push fcn.00469fc0
push 0
push 0
call sub.kernel32.dll_CreateThread
mov edx, dword [ebp - 0xc]
mov dword [edx + 0x3f8], eax
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x3f8]
test eax, eax
jne 0x46b921
mov eax, dword [ebp - 0xc]
call fcn.00444ee4
test al, al
je 0x46b916
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x404]
mov cl, 1
xor edx, edx
mov ebx, dword [eax]
call dword [ebx + 0x34]
mov eax, dword [ebp - 0xc]
push eax
call fcn.00469fc0
jmp 0x46b929
push 1
push eax
call sub.kernel32.dll_SetThreadPriority
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x46b969
lea eax, [ebp - 0x24]
call sub.rtl250.bpl__System__IntfClear_qqrr44System__DelphiInterface_17System_IInterface_
lea eax, [ebp - 0x18]
call sub.rtl250.bpl__System__IntfClear_qqrr44System__DelphiInterface_17System_IInterface_
lea eax, [ebp - 0x14]
mov edx, 2
call sub.rtl250.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 4]
mov edx, dword [0x46aa88]
call sub.rtl250.bpl__System__DynArrayClear_qqrrpvpv
ret