Function at 0x59849474
Capabilities:
Create thread

Disassembly:
push ebp
mov ebp, esp
mov ecx, 4
push 0
push 0
dec ecx
jne 0x5984947c
push ecx
push ebx
push esi
push edi
mov esi, edx
mov dword [ebp - 0xc], eax
xor eax, eax
push ebp
push 0x598497c6
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0xc]
cmp dword [eax + 0x1a4], 0
jne 0x598494d0
mov dl, 1
mov eax, dword [0x598205f0]
call fcn.59828848
mov ebx, eax
mov eax, dword [ebp - 0xc]
mov dword [ebx + 0xc], eax
mov eax, dword [ebp - 0xc]
add eax, 0x1a4
mov edx, ebx
test edx, edx
je 0x598494cb
sub edx, 0xffffffc0
call sub.rtl120.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInte
mov eax, esi
mov edx, dword [ebp - 0xc]
mov edx, dword [edx + 0x1a4]
call sub.rtl120.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInte
mov eax, dword [ebp - 0xc]
cmp byte [eax + 0x1c4], 0
je 0x5984978d
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1a4]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jne 0x5984978d
lea eax, [ebp - 0x18]
mov edx, dword [ebp - 0xc]
mov edx, dword [edx + 0x1a4]
call sub.rtl120.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInte
lea eax, [ebp - 0x24]
mov edx, dword [ebp - 0xc]
mov edx, dword [edx + 0x1a4]
mov ecx, 0x598497d4
call sub.rtl120.bpl__System__IntfCast_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInte
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.598491bc
pop ecx
lea ecx, [ebp - 0x14]
mov edx, 0x598497f0
mov eax, dword [ebp - 0xc]
call fcn.59827210
mov ebx, dword [sym.imp.madBasic_.bpl__Madstrings_SubStrCountW]
mov ebx, dword [ebx]
mov dl, 0x7c
mov eax, dword [ebp - 0x14]
call ebx
test eax, eax
jle 0x59849612
mov dword [ebp - 0x20], eax
mov dword [ebp - 0x1c], 1
xor eax, eax
push ebp
push 0x598495fc
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0x10]
push eax
mov ebx, dword [sym.imp.madBasic_.bpl__Madstrings_SubStrW]
mov ebx, dword [ebx]
mov cl, 0x7c
mov edx, dword [ebp - 0x1c]
mov eax, dword [ebp - 0x14]
call ebx
mov eax, dword [sym.madExcept_.bpl__Madexcept_Plugins]
call sub.rtl120.bpl__System__DynArrayHigh_qqrv
mov esi, eax
test esi, esi
jl 0x598495f2
inc esi
xor ebx, ebx
mov edi, ebx
add edi, edi
add edi, edi
add edi, edi
sub edi, ebx
mov eax, dword [sym.madExcept_.bpl__Madexcept_Plugins]
mov eax, dword [eax + edi*4]
mov ecx, dword [sym.imp.madBasic_.bpl__Madstrings_IsTextEqualW]
mov ecx, dword [ecx]
mov edx, dword [ebp - 0x10]
call ecx
test al, al
je 0x598495ee
mov eax, dword [sym.madExcept_.bpl__Madexcept_Plugins]
cmp byte [eax + edi*4 + 0x18], 0
je 0x598495f2
push ebp
mov eax, dword [sym.madExcept_.bpl__Madexcept_Plugins]
mov eax, dword [eax + edi*4]
mov edx, 0x59849804
call fcn.59848914
pop ecx
jmp 0x598495f2
inc ebx
dec esi
jne 0x598495a9
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x59849606
inc dword [ebp - 0x1c]
dec dword [ebp - 0x20]
jne 0x59849572
mov eax, dword [ebp - 0xc]
call fcn.59824cd4
test al, al
je 0x5984963b
mov eax, dword [ebp - 0xc]
cmp dword [eax + 0x13c], 0
je 0x5984963b
push ebp
mov edx, 0x59849804
mov eax, 0x59849848
call fcn.59848914
pop ecx
mov eax, dword [ebp - 0xc]
call fcn.59824cf4
test al, al
je 0x59849664
mov eax, dword [ebp - 0xc]
cmp dword [eax + 0x13c], 0
je 0x59849664
push ebp
mov edx, 0x59849804
mov eax, 0x59849870
call fcn.59848914
pop ecx
mov eax, dword [ebp - 0xc]
call fcn.59824d18
test al, al
je 0x5984968a
cmp dword [sym.madExcept_.bpl__Madexcept_DisAsmFunc], 0
je 0x5984968a
push ebp
mov edx, 0x59849804
mov eax, 0x59849894
call fcn.59848914
pop ecx
mov eax, dword [ebp - 0x18]
mov edx, dword [eax]
call dword [edx + 0xc]
xor eax, eax
push ebp
push 0x598496e0
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 8]
dec eax
test eax, eax
jl 0x598496d6
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 0x598496b3
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x598496ea
mov eax, dword [ebp - 0x18]
mov edx, dword [eax]
call dword [edx + 0x10]
mov eax, dword [ebp - 0xc]
cmp byte [eax + 0x218], 0
jne 0x5984978d
mov eax, dword [ebp - 0xc]
cmp byte [eax + 0x219], 0
jne 0x5984971b
call sub.kernel32.dll_GetCurrentThreadId
cmp eax, dword [0x59857ae4]
jne 0x5984974f
mov eax, 0xfa
call fcn.5981b560
test al, al
jne 0x5984974f
mov eax, dword [ebp - 0xc]
add eax, 0x1fc
push eax
push 0
mov eax, dword [ebp - 0xc]
push eax
push fcn.59847bc4
push 0
push 0
call sub.kernel32.dll_CreateThread
mov edx, dword [ebp - 0xc]
mov dword [edx + 0x1f8], eax
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1f8]
test eax, eax
jne 0x59849785
mov eax, dword [ebp - 0xc]
call fcn.59823f24
test al, al
je 0x5984977a
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x204]
mov cl, 1
xor edx, edx
mov ebx, dword [eax]
call dword [ebx + 0x34]
mov eax, dword [ebp - 0xc]
push eax
call fcn.59847bc4
jmp 0x5984978d
push 1
push eax
call sub.kernel32.dll_SetThreadPriority
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x598497cd
lea eax, [ebp - 0x24]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x18]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x14]
mov edx, 2
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 4]
mov edx, dword [0x598488e0]
call sub.rtl120.bpl__System__DynArrayClear_qqrrpvpv
ret