Function at 0x6c9874
Capabilities:
Print debug messages

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x47
push 0
push 0
dec ecx
jne 0x6c987c
push ecx
push ebx
push esi
push edi
mov dword [ebp - 0x15c], eax
lea eax, [ebp - 0xb9]
mov edx, dword [0x4136d4]
call sub.rtl120.bpl__System__InitializeRecord_qqrpvt1
lea eax, [ebp - 0x156]
mov edx, dword [0x4136d4]
call sub.rtl120.bpl__System__InitializeRecord_qqrpvt1
xor eax, eax
push ebp
push 0x6ca6e1
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x424]
mov eax, dword [eax + 8]
dec eax
test eax, eax
jl 0x6c99ee
inc eax
mov dword [ebp - 0x180], eax
mov dword [ebp - 0x160], 0
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x424]
mov eax, dword [eax + 8]
sub eax, dword [ebp - 0x160]
sub eax, 2
test eax, eax
jl 0x6c99dc
inc eax
mov dword [ebp - 0x184], eax
xor ebx, ebx
lea eax, [ebp - 0xb9]
mov edx, dword [0x4136d4]
call sub.rtl120.bpl__System__FinalizeRecord_qqrpvt1
mov ecx, eax
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x424]
mov edx, ebx
call fcn.0052c084
test al, al
je 0x6c99cf
lea eax, [ebp - 0x156]
mov edx, dword [0x4136d4]
call sub.rtl120.bpl__System__FinalizeRecord_qqrpvt1
mov ecx, eax
lea esi, [ebx + 1]
mov edx, esi
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x424]
call fcn.0052c084
test al, al
je 0x6c99cf
mov eax, dword [ebp - 0xb9]
mov edx, dword [ebp - 0x156]
call sub.rtl120.bpl__System__UStrCmp_qqrv
jbe 0x6c99cf
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x424]
mov edx, ebx
call fcn.006ce8ac
mov edi, eax
mov edx, esi
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x424]
call fcn.006ce8ac
mov ecx, eax
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x424]
mov edx, ebx
call fcn.006ce8d4
mov edx, esi
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x424]
mov ecx, edi
call fcn.006ce8d4
inc ebx
dec dword [ebp - 0x184]
jne 0x6c990f
inc dword [ebp - 0x160]
dec dword [ebp - 0x180]
jne 0x6c98e6
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x3dc]
mov eax, dword [eax + 0x788]
mov edx, 0x1388
call fcn.0049cf88
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x3dc]
mov edx, dword [eax]
call dword [edx + 0xe8]
mov eax, dword [ebp - 0x15c]
mov edx, dword [eax + 0x43c]
mov eax, dword [ebp - 0x15c]
call fcn.006cbf88
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x43c]
call fcn.006ce75c
xor eax, eax
mov dword [ebp - 0x164], eax
mov eax, dword [0x807134]
mov eax, dword [eax]
call fcn.004271c0
mov dword [ebp - 0x168], eax
lea edx, [ebp - 0x18c]
mov eax, dword [0x807134]
mov eax, dword [eax]
call fcn.004273d0
mov edx, dword [ebp - 0x18c]
lea eax, [ebp - 0xc]
mov ecx, 0x6ca700
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov byte [ebp - 0x179], 1
lea edx, [ebp - 0x190]
mov eax, dword [0x807134]
mov eax, dword [eax]
call fcn.004273d0
mov eax, dword [ebp - 0x190]
call fcn.0040c1b4
test eax, eax
jg 0x6c9ab4
mov byte [ebp - 0x179], 0
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x6ca4ee
xor edx, edx
push ebp
push 0x6ca476
push dword fs:[edx]
mov dword fs:[edx], esp
push 1
push 0
movzx eax, byte [0x6ca71c]
push eax
push 0
push 0
lea eax, [ebp - 0x18]
push eax
mov cl, 1
mov edx, dword [ebp - 0xc]
mov eax, dword [0x5195a8]
call fcn.0051b594
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x424]
mov eax, dword [eax + 8]
dec eax
test eax, eax
jl 0x6ca454
inc eax
mov dword [ebp - 0x180], eax
mov dword [ebp - 0x160], 0
lea eax, [ebp - 4]
xor edx, edx
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 8]
xor edx, edx
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, dword [0x4136d4]
lea eax, [ebp - 0xb9]
call sub.rtl120.bpl__System__FinalizeRecord_qqrpvt1
mov ecx, eax
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x424]
mov edx, dword [ebp - 0x160]
call fcn.0052c084
test al, al
je 0x6ca442
lea edx, [ebp - 0x194]
mov eax, dword [ebp - 0xb9]
call sub.rtl120.bpl__Sysutils_Trim_qqrx20System_UnicodeString
cmp dword [ebp - 0x194], 0
je 0x6ca442
lea edx, [ebp - 0x198]
mov eax, dword [ebp - 0xb1]
call sub.rtl120.bpl__Sysutils_Trim_qqrx20System_UnicodeString
cmp dword [ebp - 0x198], 0
je 0x6ca442
lea edx, [ebp - 0x19c]
mov eax, dword [ebp - 0xa9]
call sub.rtl120.bpl__Sysutils_Trim_qqrx20System_UnicodeString
cmp dword [ebp - 0x19c], 0
je 0x6ca442
mov eax, dword [ebp - 0x49]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x6ca442
cmp dword [ebp - 0x59], 0
je 0x6ca442
cmp dword [ebp - 0x41], 0
je 0x6ca442
lea ecx, [ebp - 0x1a0]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x24]
mov eax, dword [ebp - 0x1a0]
mov edx, dword [eax]
call dword [edx + 0x8c]
mov edx, dword [ebp - 0x20]
call fcn.00521c68
test al, al
je 0x6ca442
lea eax, [ebp - 0x1a4]
mov ecx, dword [ebp - 0xb9]
mov edx, 0x6ca748
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x1a4]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_OutputDebugStringW
lea eax, [ebp - 0x1a8]
mov ecx, dword [ebp - 0x20]
mov edx, 0x6ca784
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x1a8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_OutputDebugStringW
lea eax, [ebp - 0x1ac]
mov ecx, dword [ebp - 0x41]
mov edx, 0x6ca7c0
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x1ac]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_OutputDebugStringW
lea ecx, [ebp - 0x1b0]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x24]
mov eax, dword [ebp - 0x1b0]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
cmp dword [eax + 8], 0
jle 0x6c9d85
lea ecx, [ebp - 0x1b4]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x24]
mov eax, dword [ebp - 0x1b4]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
mov ebx, dword [eax + 8]
dec ebx
cmp ebx, 0
jl 0x6c9d85
lea eax, [ebp - 0x1c]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea ecx, [ebp - 0x1b8]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov esi, dword [eax]
call dword [esi + 0x24]
mov eax, dword [ebp - 0x1b8]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
lea ecx, [ebp - 0x1c]
mov edx, ebx
call fcn.00520aec
lea ecx, [ebp - 4]
mov edx, 0x6ca804
mov eax, dword [ebp - 0x1c]
mov esi, dword [eax]
call dword [esi + 0x4c]
lea edx, [ebp - 0x1bc]
mov eax, dword [0x807134]
mov eax, dword [eax]
call fcn.004273d0
lea eax, [ebp - 0x1bc]
mov edx, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x1bc]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
jne 0x6c9d7b
lea ecx, [ebp - 0x1c4]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov esi, dword [eax]
call dword [esi + 0x24]
mov eax, dword [ebp - 0x1c4]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
lea ecx, [ebp - 0x1c0]
mov edx, ebx
call fcn.005208a8
dec ebx
cmp ebx, 0xffffffff
jne 0x6c9cdb
lea ecx, [ebp - 0x1c8]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x24]
mov eax, dword [ebp - 0x1c8]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
cmp dword [eax + 8], 1
jge 0x6c9ddb
lea ecx, [ebp - 0x1d0]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x24]
mov eax, dword [ebp - 0x1d0]
lea ecx, [ebp - 0x1cc]
mov edx, dword [ebp - 0x20]
mov ebx, dword [eax]
call dword [ebx + 0xa0]
jmp 0x6ca442
lea ecx, [ebp - 0x1d4]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x24]
mov eax, dword [ebp - 0x1d4]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
cmp dword [eax + 8], 1
jle 0x6ca079
lea ecx, [ebp - 0x1d8]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x24]
mov eax, dword [ebp - 0x1d8]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
mov eax, dword [eax + 8]
dec eax
test eax, eax
jl 0x6ca079
inc eax
mov dword [ebp - 0x184], eax
xor ebx, ebx
lea ecx, [ebp - 0x1dc]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov esi, dword [eax]
call dword [esi + 0x24]
mov eax, dword [ebp - 0x1dc]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
mov eax, dword [eax + 8]
sub eax, 2
sub eax, ebx
test eax, eax
jl 0x6ca06c
inc eax
mov dword [ebp - 0x188], eax
xor esi, esi
lea eax, [ebp - 0x1c]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea ecx, [ebp - 0x1e0]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov edi, dword [eax]
call dword [edi + 0x24]
mov eax, dword [ebp - 0x1e0]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
lea ecx, [ebp - 0x1c]
mov edx, esi
call fcn.00520aec
lea ecx, [ebp - 0x10]
mov edx, 0x6ca828
mov eax, dword [ebp - 0x1c]
mov edi, dword [eax]
call dword [edi + 0x4c]
mov eax, dword [ebp - 0x10]
call fcn.00525238
mov dword [ebp - 0x170], eax
mov dword [ebp - 0x16c], edx
push dword [ebp - 0x16c]
push dword [ebp - 0x170]
lea eax, [ebp - 0x1e4]
call sub.rtl120.bpl__Sysutils_IntToStr_qqrj
mov ecx, dword [ebp - 0x1e4]
mov edx, 0x6ca828
mov eax, dword [ebp - 0x1c]
mov edi, dword [eax]
call dword [edi + 0x50]
lea eax, [ebp - 0x1c]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea ecx, [ebp - 0x1e8]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov edi, dword [eax]
call dword [edi + 0x24]
mov eax, dword [ebp - 0x1e8]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
lea ecx, [ebp - 0x1c]
lea edx, [esi + 1]
call fcn.00520aec
lea ecx, [ebp - 0x14]
mov edx, 0x6ca828
mov eax, dword [ebp - 0x1c]
mov edi, dword [eax]
call dword [edi + 0x4c]
mov eax, dword [ebp - 0x14]
call fcn.00525238
mov dword [ebp - 0x178], eax
mov dword [ebp - 0x174], edx
push dword [ebp - 0x174]
push dword [ebp - 0x178]
lea eax, [ebp - 0x1ec]
call sub.rtl120.bpl__Sysutils_IntToStr_qqrj
mov ecx, dword [ebp - 0x1ec]
mov edx, 0x6ca828
mov eax, dword [ebp - 0x1c]
mov edi, dword [eax]
call dword [edi + 0x50]
mov eax, dword [ebp - 0x170]
mov edx, dword [ebp - 0x16c]
cmp edx, dword [ebp - 0x174]
jne 0x6c9f9b
cmp eax, dword [ebp - 0x178]
jbe 0x6ca05f
jmp 0x6c9fa1
jle 0x6ca05f
lea eax, [ebp - 0x1c]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea ecx, [ebp - 0x1f0]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov edi, dword [eax]
call dword [edi + 0x24]
mov eax, dword [ebp - 0x1f0]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
lea ecx, [ebp - 0x1c]
mov edx, esi
call fcn.00520aec
lea ecx, [ebp - 0x1f8]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov edi, dword [eax]
call dword [edi + 0x24]
mov eax, dword [ebp - 0x1f8]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
lea ecx, [ebp - 0x1f4]
lea edx, [esi + 1]
call fcn.00520aec
mov eax, dword [ebp - 0x1f4]
push eax
lea ecx, [ebp - 0x1fc]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov edi, dword [eax]
call dword [edi + 0x24]
mov eax, dword [ebp - 0x1fc]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
mov edx, esi
pop ecx
call fcn.00520b14
lea ecx, [ebp - 0x200]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov edi, dword [eax]
call dword [edi + 0x24]
mov eax, dword [ebp - 0x200]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
lea edx, [esi + 1]
mov ecx, dword [ebp - 0x1c]
call fcn.00520b14
inc esi
dec dword [ebp - 0x188]
jne 0x6c9e76
inc ebx
dec dword [ebp - 0x184]
jne 0x6c9e3c
cmp dword [ebp - 0x168], 0
jle 0x6ca1ce
cmp byte [ebp - 0x179], 0
je 0x6ca1ce
lea ecx, [ebp - 0x204]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x24]
mov eax, dword [ebp - 0x204]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
mov eax, dword [eax + 8]
sub eax, dword [ebp - 0x168]
test eax, eax
jle 0x6ca1ce
dec eax
test eax, eax
jl 0x6ca1ce
inc eax
mov dword [ebp - 0x184], eax
lea eax, [ebp - 0x1c]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea ecx, [ebp - 0x208]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x24]
mov eax, dword [ebp - 0x208]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
lea ecx, [ebp - 0x1c]
xor edx, edx
call fcn.00520aec
lea ecx, [ebp - 4]
mov edx, 0x6ca804
mov eax, dword [ebp - 0x1c]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
lea edx, [ebp - 0x20c]
mov eax, dword [0x807134]
mov eax, dword [eax]
call fcn.004273d0
lea eax, [ebp - 0x20c]
mov edx, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x20c]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x6ca194
xor eax, eax
push ebp
push 0x6ca18a
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x210]
mov eax, dword [0x807134]
mov eax, dword [eax]
call fcn.004273d0
lea eax, [ebp - 0x210]
mov edx, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x210]
call sub.rtl120.bpl__Sysutils_DeleteFile_qqrx20System_UnicodeString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x6ca194
lea ecx, [ebp - 0x218]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x24]
mov eax, dword [ebp - 0x218]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
lea ecx, [ebp - 0x214]
xor edx, edx
call fcn.005208a8
dec dword [ebp - 0x184]
jne 0x6ca0d5
mov edx, dword [0x6c438c]
mov eax, 0xa5
call sub.rtl120.bpl__System__New_qqripv
mov esi, eax
mov edx, esi
mov eax, dword [ebp - 0x15c]
call fcn.006cbf54
lea ecx, [ebp - 0x21c]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x24]
mov eax, dword [ebp - 0x21c]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
mov ebx, dword [eax + 8]
dec ebx
cmp ebx, 0
jl 0x6ca2fa
lea edx, [ebp - 0x224]
mov eax, ebx
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x224]
lea eax, [ebp - 0x220]
mov edx, 0x6ca84c
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x220]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_OutputDebugStringW
lea eax, [ebp - 0x1c]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea ecx, [ebp - 0x228]
mov edx, 0x6ca72c
mov eax, dword [ebp - 0x18]
mov edi, dword [eax]
call dword [edi + 0x24]
mov eax, dword [ebp - 0x228]
mov edx, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x54]
lea ecx, [ebp - 0x1c]
mov edx, ebx
call fcn.00520aec
lea ecx, [ebp - 4]
mov edx, 0x6ca804
mov eax, dword [ebp - 0x1c]
mov edi, dword [eax]
call dword [edi + 0x4c]
lea ecx, [ebp - 8]
mov edx, 0x6ca88c
mov eax, dword [ebp - 0x1c]
mov edi, dword [eax]
call dword [edi + 0x4c]
lea edx, [ebp - 0x22c]
mov eax, dword [0x807134]
mov eax, dword [eax]
call fcn.004273d0
lea eax, [ebp - 0x22c]
mov edx, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x22c]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x6ca2f0
mov eax, dword [esi + 0x9d]
mov ecx, dword [ebp - 4]
mov edx, dword [ebp - 8]
call fcn.006ce0f4
mov eax, dword [esi + 0xa1]
mov edx, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x38]
dec ebx
cmp ebx, 0xffffffff
jne 0x6ca21b
mov eax, dword [esi + 0xa1]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jle 0x6ca396
lea eax, [ebp - 8]
mov edx, 0x6ca8a8
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [esi + 0xa1]
mov edx, dword [eax]
call dword [edx + 0x14]
cmp eax, 2
jge 0x6ca33c
lea ecx, [ebp - 8]
mov eax, dword [esi + 0xa1]
xor edx, edx
mov ebx, dword [eax]
call dword [ebx + 0xc]
jmp 0x6ca396
mov eax, dword [esi + 0xa1]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x6ca396
inc eax
mov dword [ebp - 0x184], eax
xor ebx, ebx
lea ecx, [ebp - 0x230]
mov eax, dword [esi + 0xa1]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x230]
mov edx, dword [ebp - 0x95]
call sub.rtl120.bpl__System__UStrEqual_qqrv
je 0x6ca38d
lea ecx, [ebp - 8]
mov eax, dword [esi + 0xa1]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0xc]
jmp 0x6ca396
inc ebx
dec dword [ebp - 0x184]
jne 0x6ca355
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x424]
mov edx, dword [ebp - 0x160]
call fcn.006ce8ac
mov edx, eax
mov eax, esi
mov ecx, dword [0x4136d4]
call sub.rtl120.bpl__System__CopyRecord_qqrv
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x43c]
mov edx, esi
call fcn.006ce5f8
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x3dc]
mov eax, dword [eax + 0x788]
or edx, 0xffffffff
call fcn.0049c970
mov ebx, eax
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x43c]
mov edx, dword [ebp - 0x164]
call fcn.006ce410
mov edx, eax
mov eax, ebx
call sub.vcl120.bpl__Comctrls_TListItem_SetData_qqrpv
xor ecx, ecx
xor edx, edx
mov eax, ebx
call sub.vcl120.bpl__Comctrls_TListItem_SetImage_qqrii
mov edx, dword [ebp - 0xb9]
mov eax, ebx
call fcn.0049a644
mov eax, dword [ebx + 8]
mov edx, dword [ebp - 0x95]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebx + 8]
mov edx, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc dword [ebp - 0x164]
inc dword [ebp - 0x160]
dec dword [ebp - 0x180]
jne 0x6c9b1e
cmp byte [ebp - 0x179], 0
je 0x6ca46c
push 1
mov cl, 1
mov edx, dword [ebp - 0xc]
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax]
call dword [ebx + 0x68]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x6ca4ee
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x3dc]
mov eax, dword [eax + 0x788]
call fcn.0049d228
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x3e4]
xor edx, edx
mov ecx, dword [eax]
call dword [ecx + 0x64]
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x3dc]
mov eax, dword [eax + 0x788]
call sub.vcl120.bpl__Comctrls_TListItems_GetCount_qqrv
test eax, eax
jle 0x6ca5a8
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x3dc]
mov byte [eax + 0x4a8], 1
mov eax, dword [ebp - 0x15c]
mov si, 0xffb6
call sub.rtl120.bpl__System__CallDynaInst_qqrv
test al, al
je 0x6ca5a8
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x3dc]
mov si, 0xffb6
call sub.rtl120.bpl__System__CallDynaInst_qqrv
test al, al
je 0x6ca5a8
xor eax, eax
push ebp
push 0x6ca59e
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax + 0x3dc]
mov edx, dword [eax]
call dword [edx + 0xd8]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x6ca5a8
mov eax, dword [ebp - 0x15c]
call fcn.006cc040
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6ca6eb
lea eax, [ebp - 0x23c]
mov edx, 5
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x228]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x224]
mov edx, 2
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x21c]
mov edx, dword [0x5192ac]
mov ecx, 3
call sub.rtl120.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x210]
mov edx, 2
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x208]
mov edx, dword [0x5192ac]
mov ecx, 7
call sub.rtl120.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x1ec]
call sub.rtl120.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x1e8]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x1e4]
call sub.rtl120.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x1e0]
mov edx, dword [0x5192ac]
mov ecx, 9
call sub.rtl120.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x1bc]
call sub.rtl120.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x1b8]
mov edx, dword [0x5192ac]
mov ecx, 3
call sub.rtl120.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x1ac]
mov edx, 3
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x1a0]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x19c]
mov edx, 5
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x156]
mov edx, dword [0x4136d4]
mov ecx, 2
call sub.rtl120.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x1c]
mov edx, dword [0x5192ac]
mov ecx, 2
call sub.rtl120.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x14]
mov edx, 5
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret