Function at 0x4c8eec
Capabilities:
Access peb ldr_data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffff98
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 0x68], ebx
mov dword [ebp - 0x64], ebx
mov dword [ebp - 0x50], ebx
mov dword [ebp - 0x4c], ebx
mov dword [ebp - 4], ebx
mov dword [ebp - 0xc], ecx
mov dword [ebp - 8], edx
mov esi, eax
mov ebx, dword [ebp + 0x1c]
xor eax, eax
push ebp
push 0x4c950b
push dword fs:[eax]
mov dword fs:[eax], esp
mov dword [ebp - 0x10], 0xffffffff
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__Types_RectWidth_qqrrx11Types_TRect
dec eax
jl 0x4c94db
cmp dword [esi + 0x278], 0
je 0x4c94db
mov dword [ebp - 0x14], 0xffffffff
mov eax, dword [ebp + 0x18]
mov edi, dword [eax + 0x58]
test edi, edi
jne 0x4c8f59
mov edi, dword [esi + 0x4f4]
xor eax, eax
mov dword [ebp - 0x18], eax
test edi, edi
je 0x4c8fb5
test ebx, ebx
jg 0x4c8f71
mov eax, dword [ebp + 0x20]
mov eax, dword [eax + 0xc]
mov dword [ebp - 0x14], eax
jmp 0x4c8f8e
mov eax, dword [ebp + 0x20]
mov eax, dword [eax + 8]
mov edx, dword [eax]
call dword [edx + 0x14]
cmp ebx, eax
jg 0x4c8f8e
mov edx, ebx
dec edx
mov eax, dword [ebp + 0x20]
call sub.vcl120.bpl__Comctrls_TListItem_GetSubItemImage_qqri
mov dword [ebp - 0x14], eax
cmp dword [ebp - 0x14], 0
jl 0x4c8fae
mov eax, edi
call sub.vcl120.bpl__Imglist_TCustomImageList_GetCount_qqrv
cmp eax, dword [ebp - 0x14]
jle 0x4c8fae
mov eax, dword [edi + 0x34]
mov dword [ebp - 0x14], eax
mov eax, dword [edi + 0x30]
mov dword [ebp - 0x18], eax
jmp 0x4c8fb5
mov dword [ebp - 0x14], 0xffffffff
test ebx, ebx
sete al
mov edx, dword [esi + 0x5b0]
xor ecx, ecx
call sub.rtl120.bpl__Math_IfThen_qqroxixi
mov edx, dword [ebp - 0xc]
mov edx, dword [edx]
add edx, dword [esi + 0x41c]
mov ecx, dword [ebp + 0x18]
add edx, dword [ecx + 0x68]
add eax, edx
mov edx, dword [ebp - 0xc]
mov dword [edx], eax
cmp dword [ebp - 0x14], 0
jle 0x4c9037
mov eax, dword [ebp - 0xc]
push esi
mov esi, eax
lea edi, [ebp - 0x48]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
pop esi
mov eax, dword [ebp - 0x14]
add eax, 5
mov edx, dword [ebp - 0xc]
add dword [edx], eax
lea eax, [ebp - 0x48]
call sub.rtl120.bpl__Types_RectHeight_qqrrx11Types_TRect
sub eax, dword [ebp - 0x18]
sar eax, 1
jns 0x4c9010
adc eax, 0
add dword [ebp - 0x44], eax
mov eax, dword [ebp - 0x48]
add eax, dword [ebp - 0x14]
mov dword [ebp - 0x40], eax
mov edx, dword [ebp - 8]
lea eax, [ebp - 0x48]
call sub.rtl120.bpl__Types_PtInRect_qqrrx11Types_TRectrx12Types_TPoint
test al, al
je 0x4c9037
mov dword [ebp - 0x10], 0xfffffffe
jmp 0x4c94db
cmp byte [ebp + 8], 0
jne 0x4c94db
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__Types_RectWidth_qqrrx11Types_TRect
test eax, eax
jle 0x4c94db
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TStringList_]
call sub.rtl120.bpl__Classes_TStringList__bctr_qqrv
mov dword [ebp - 0x20], eax
xor edx, edx
push ebp
push 0x4c94d4
push dword fs:[edx]
mov dword fs:[edx], esp
mov edx, 0x4c952c
mov eax, dword [ebp - 0x20]
call sub.rtl120.bpl__Classes_TStrings_SetLineBreak_qqrx20System_UnicodeString
mov edx, dword [ebp + 0x24]
mov edx, dword [edx]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, dword [esi + 0x560]
call sub.vcl120.bpl__Graphics_TBitmap_GetCanvas_qqrv
mov eax, dword [eax + 0xc]
mov edx, dword [ebp + 0x18]
mov edx, dword [edx + 0x30]
mov ecx, dword [eax]
call dword [ecx + 8]
mov eax, dword [esi + 0x6e8]
mov eax, dword [eax + 0x38]
mov dword [ebp - 0x18], eax
xor eax, eax
mov dword [ebp - 0x14], eax
mov eax, dword [ebp - 0xc]
push esi
mov esi, eax
lea edi, [ebp - 0x38]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
pop esi
mov eax, dword [ebp - 0x34]
mov dword [ebp - 0x2c], eax
xor eax, eax
mov dword [ebp - 0x1c], eax
cmp byte [ebp + 0xc], 0
je 0x4c90db
mov eax, dword [ebp + 0x24]
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x4c9296
inc eax
mov dword [ebp - 0x28], eax
xor ebx, ebx
lea ecx, [ebp - 4]
mov edx, ebx
mov eax, dword [ebp - 0x20]
mov edi, dword [eax]
call dword [edi + 0xc]
mov byte [ebp - 0x21], 0
lea eax, [ebp - 0x4c]
push eax
mov ecx, 2
mov edx, 1
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov eax, dword [ebp - 0x4c]
mov edx, 0x4c9540
call sub.rtl120.bpl__System__UStrEqual_qqrv
jne 0x4c913c
lea eax, [ebp - 4]
mov ecx, 2
mov edx, 1
call sub.rtl120.bpl__System__UStrDelete_qqrr20System_UnicodeStringii
jmp 0x4c91a2
lea eax, [ebp - 0x50]
push eax
mov ecx, 2
mov edx, 1
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov eax, dword [ebp - 0x50]
mov edx, 0x4c9554
call sub.rtl120.bpl__System__UStrEqual_qqrv
jne 0x4c9179
lea eax, [ebp - 4]
mov ecx, 2
mov edx, 1
call sub.rtl120.bpl__System__UStrDelete_qqrr20System_UnicodeStringii
mov byte [ebp - 0x21], 1
jmp 0x4c91a2
test ebx, ebx
jne 0x4c91a2
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
jg 0x4c919d
cmp byte [ebp + 0x14], 0
jne 0x4c9199
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
je 0x4c919d
xor eax, eax
jmp 0x4c919f
mov al, 1
mov byte [ebp - 0x21], al
cmp byte [ebp + 0xc], 0
je 0x4c91d3
test ebx, ebx
jne 0x4c91b9
mov eax, dword [ebp + 0x24]
mov edx, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x4c91d3
mov eax, dword [ebp + 0x24]
push dword [eax]
push 0x4c9568
push dword [ebp - 4]
mov eax, dword [ebp + 0x24]
mov edx, 3
call sub.rtl120.bpl__System__UStrCatN_qqrv
cmp byte [ebp - 0x21], 0
jne 0x4c91f4
mov eax, dword [esi + 0x560]
call sub.vcl120.bpl__Graphics_TBitmap_GetCanvas_qqrv
mov eax, dword [eax + 0xc]
mov edx, dword [ebp + 0x18]
mov edx, dword [edx + 0x30]
mov ecx, dword [eax]
call dword [ecx + 8]
jmp 0x4c9222
cmp byte [ebp - 0x21], 0
je 0x4c9222
mov eax, dword [esi + 0x6e8]
cmp byte [eax + 0x34], 0
jne 0x4c9222
mov eax, dword [esi + 0x560]
call sub.vcl120.bpl__Graphics_TBitmap_GetCanvas_qqrv
mov eax, dword [eax + 0xc]
mov edx, dword [esi + 0x6e8]
mov edx, dword [edx + 0x30]
mov ecx, dword [eax]
call dword [ecx + 8]
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 8]
mov dword [ebp - 0x30], eax
lea eax, [ebp - 0x38]
push eax
push 0
push 0
push 0
push 1
mov eax, dword [esi + 0x6e8]
movzx eax, byte [eax + 0x25]
push eax
movzx eax, byte [ebp + 0x10]
push eax
mov eax, dword [esi + 0x560]
call sub.vcl120.bpl__Graphics_TBitmap_GetCanvas_qqrv
or ecx, 0xffffffff
mov edx, dword [ebp - 4]
call fcn.004b6fdc
mov ecx, eax
mov edx, ebx
mov eax, dword [ebp - 0x20]
mov edi, dword [eax]
call dword [edi + 0x24]
mov edx, ebx
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x18]
mov edx, dword [ebp - 0x18]
add edx, dword [ebp - 0x14]
add eax, edx
mov dword [ebp - 0x14], eax
mov edx, dword [ebp - 0x1c]
mov eax, dword [ebp - 0x30]
call sub.rtl120.bpl__Math_Max_qqrxixi
mov dword [ebp - 0x1c], eax
inc ebx
dec dword [ebp - 0x28]
jne 0x4c90f2
mov eax, dword [ebp - 0x14]
push eax
lea eax, [ebp - 0x60]
push eax
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__Types_RectWidth_qqrrx11Types_TRect
mov ecx, eax
xor edx, edx
xor eax, eax
call sub.rtl120.bpl__Types_Rect_qqriiii
lea edx, [ebp - 0x60]
lea ecx, [ebp - 0x38]
mov eax, dword [ebp - 0xc]
call fcn.004b6f84
mov eax, dword [ebp - 0x18]
sar eax, 1
jns 0x4c92c9
adc eax, 0
add dword [ebp - 0x34], eax
mov edx, dword [ebp - 0xc]
mov eax, dword [ebp - 0x34]
mov dword [edx + 4], eax
mov edx, dword [ebp - 0xc]
add eax, dword [ebp - 0x14]
mov edx, dword [ebp - 0xc]
mov dword [edx + 0xc], eax
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jle 0x4c92f6
mov eax, dword [ebp - 0xc]
mov edx, dword [ebp - 0x18]
sub dword [eax + 0xc], edx
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x4c94b5
inc eax
mov dword [ebp - 0x28], eax
xor ebx, ebx
lea ecx, [ebp - 4]
mov edx, ebx
mov eax, dword [ebp - 0x20]
mov edi, dword [eax]
call dword [edi + 0xc]
mov edx, ebx
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x18]
add eax, dword [ebp - 0x34]
mov dword [ebp - 0x2c], eax
mov byte [ebp - 0x21], 0
lea eax, [ebp - 0x64]
push eax
mov ecx, 2
mov edx, 1
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov eax, dword [ebp - 0x64]
mov edx, 0x4c9540
call sub.rtl120.bpl__System__UStrEqual_qqrv
jne 0x4c9367
lea eax, [ebp - 4]
mov ecx, 2
mov edx, 1
call sub.rtl120.bpl__System__UStrDelete_qqrr20System_UnicodeStringii
jmp 0x4c93cd
lea eax, [ebp - 0x68]
push eax
mov ecx, 2
mov edx, 1
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov eax, dword [ebp - 0x68]
mov edx, 0x4c9554
call sub.rtl120.bpl__System__UStrEqual_qqrv
jne 0x4c93a4
mov byte [ebp - 0x21], 1
lea eax, [ebp - 4]
mov ecx, 2
mov edx, 1
call sub.rtl120.bpl__System__UStrDelete_qqrr20System_UnicodeStringii
jmp 0x4c93cd
test ebx, ebx
jne 0x4c93cd
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
jg 0x4c93c8
cmp byte [ebp + 0x14], 0
jne 0x4c93c4
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
je 0x4c93c8
xor eax, eax
jmp 0x4c93ca
mov al, 1
mov byte [ebp - 0x21], al
cmp byte [ebp - 0x21], 0
jne 0x4c93ee
mov eax, dword [esi + 0x560]
call sub.vcl120.bpl__Graphics_TBitmap_GetCanvas_qqrv
mov eax, dword [eax + 0xc]
mov edx, dword [ebp + 0x18]
mov edx, dword [edx + 0x30]
mov ecx, dword [eax]
call dword [ecx + 8]
jmp 0x4c941c
cmp byte [ebp - 0x21], 0
je 0x4c941c
mov eax, dword [esi + 0x6e8]
cmp byte [eax + 0x34], 0
jne 0x4c941c
mov eax, dword [esi + 0x560]
call sub.vcl120.bpl__Graphics_TBitmap_GetCanvas_qqrv
mov eax, dword [eax + 0xc]
mov edx, dword [esi + 0x6e8]
mov edx, dword [edx + 0x30]
mov ecx, dword [eax]
call dword [ecx + 8]
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 8]
mov dword [ebp - 0x30], eax
cmp byte [ebp - 0x21], 0
je 0x4c94a2
push esi
lea esi, [ebp - 0x38]
lea edi, [ebp - 0x48]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
pop esi
lea eax, [ebp - 0x48]
push eax
push 0
push 0
push 0
push 1
mov eax, dword [esi + 0x6e8]
movzx eax, byte [eax + 0x25]
push eax
movzx eax, byte [ebp + 0x10]
push eax
mov eax, dword [esi + 0x560]
call sub.vcl120.bpl__Graphics_TBitmap_GetCanvas_qqrv
or ecx, 0xffffffff
mov edx, dword [ebp - 4]
call fcn.004b6fdc
lea eax, [ebp - 0x38]
call sub.rtl120.bpl__Types_RectHeight_qqrrx11Types_TRect
push eax
lea eax, [ebp - 0x48]
call sub.rtl120.bpl__Types_RectHeight_qqrrx11Types_TRect
pop ecx
sub ecx, eax
sar ecx, 1
jns 0x4c9484
adc ecx, 0
lea eax, [ebp - 0x48]
xor edx, edx
call sub.rtl120.bpl__Types_OffsetRect_qqrr11Types_TRectii
mov edx, dword [ebp - 8]
lea eax, [ebp - 0x48]
call sub.rtl120.bpl__Types_PtInRect_qqrrx11Types_TRectrx12Types_TPoint
test al, al
je 0x4c94a2
mov dword [ebp - 0x10], ebx
jmp 0x4c94b5
mov eax, dword [ebp - 0x2c]
add eax, dword [ebp - 0x18]
mov dword [ebp - 0x34], eax
inc ebx
dec dword [ebp - 0x28]
jne 0x4c930d
mov eax, dword [ebp - 0xc]
mov edx, dword [ebp - 0x1c]
mov dword [eax + 8], edx
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4c94db
mov eax, dword [ebp - 0x20]
call sub.rtl120.bpl__System_TObject_Free_qqrv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4c9512
lea eax, [ebp - 0x68]
mov edx, 2
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x50]
mov edx, 2
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret