Function at 0x6f9514
Capabilities:
Resolve function by parsing pe exports

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0x23
push 0
push 0
dec ecx
jne 0x6f951d
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov dword [ebp - 0x18], ecx
mov dword [ebp - 0x14], edx
mov ebx, eax
lea eax, [ebp - 0x10]
mov edx, dword [0x519670]
call sub.rtl120.bpl__System__InitializeRecord_qqrpvt1
xor eax, eax
push ebp
push 0x6fa7a2
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
mov dword [ebp - 0x1c], eax
push 1
push 0
movzx eax, byte [0x6fa7b8]
push eax
push 0
push 0
lea eax, [ebp - 4]
push eax
mov eax, ebx
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
mov edx, eax
mov cl, 1
mov eax, dword [0x5195a8]
call fcn.0051b2f8
xor eax, eax
push ebp
push 0x6fa747
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
call fcn.006154b0
mov byte [ebp - 0x29], al
cmp byte [ebp - 0x29], 0
jne 0x6f95a5
mov eax, 0x6fa7c8
call fcn.006f93e4
call fcn.006f82c4
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov eax, dword [eax + 8]
dec eax
test eax, eax
jl 0x6fa731
inc eax
mov dword [ebp - 0x38], eax
mov dword [ebp - 0x20], 0
cmp byte [ebp + 8], 0
je 0x6f963d
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x99]
call fcn.006f8224
test al, al
je 0x6f963d
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov ecx, dword [eax + 0x78]
lea eax, [ebp - 0x44]
mov edx, 0x6fa80c
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x44]
call fcn.006f93e4
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov dword [eax + 0x89], 0xffffffff
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov byte [eax + 0x8d], 0
jmp 0x6fa725
cmp byte [ebp + 8], 0
je 0x6f972a
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TStringList_]
call sub.rtl120.bpl__Classes_TStringList__bctr_qqrv
mov dword [ebp - 0x34], eax
xor eax, eax
push ebp
push 0x6f9723
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x34]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x60]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
mov ecx, eax
mov edx, 0x6fa83c
mov eax, 0x6fa85c
call sub.rtl120.bpl__Classes_ExtractStrings_qqrrx29System__Set_tc_iuc_0_iuc_255_t1pbp16Classes_TStrings
mov eax, dword [ebp - 0x34]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jle 0x6f970d
lea ecx, [ebp - 0x48]
xor edx, edx
mov eax, dword [ebp - 0x34]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov eax, dword [ebp - 0x48]
call fcn.006f8224
test al, al
je 0x6f970d
lea ecx, [ebp - 0x50]
xor edx, edx
mov eax, dword [ebp - 0x34]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov ecx, dword [ebp - 0x50]
lea eax, [ebp - 0x4c]
mov edx, 0x6fa888
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x4c]
call fcn.006f93e4
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov dword [eax + 0x89], 0xffffffff
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov byte [eax + 0x8d], 0
call sub.rtl120.bpl__System__TryFinallyExit_qqrv
jmp 0x6fa725
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6f972a
mov eax, dword [ebp - 0x34]
call sub.rtl120.bpl__System_TObject_Free_qqrv
ret
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
cmp byte [eax + 0x8e], 0
je 0x6f9795
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov ecx, dword [eax + 0x78]
lea eax, [ebp - 0x54]
mov edx, 0x6fa8c4
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x54]
call fcn.006f93e4
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov dword [eax + 0x89], 0xffffffff
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov byte [eax + 0x8d], 0
jmp 0x6fa725
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x60]
mov edx, 0x6fa8f0
call sub.rtl120.bpl__Sysutils_SameText_qqrx20System_UnicodeStringt1
test al, al
je 0x6f97cb
call fcn.006f7fd4
test al, al
je 0x6f97cb
mov eax, 0x6fa92c
call fcn.006f93e4
jmp 0x6fa725
cmp byte [ebp - 0x29], 0
je 0x6fa725
xor eax, eax
push ebp
push 0x6fa71e
push dword fs:[eax]
mov dword fs:[eax], esp
lea ecx, [ebp - 0x58]
mov edx, 0x6fa960
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0x24]
mov eax, dword [ebp - 0x58]
lea edx, [ebp - 0x10]
call fcn.0051a134
test al, al
je 0x6fa708
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x99]
mov edx, dword [ebp - 0x10]
call sub.rtl120.bpl__System__UStrEqual_qqrv
jne 0x6fa6f8
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
add eax, 0x58
push eax
lea ecx, [ebp - 0x5c]
mov edx, 0x6fa978
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov edx, dword [ebp - 0x5c]
pop eax
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
cmp byte [ebp + 8], 0
je 0x6f98de
mov edx, 0x6fa98c
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
push edx
push eax
mov edx, 0x6fa978
lea ecx, [ebp - 0x60]
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov eax, dword [ebp - 0x60]
call fcn.006f8154
test al, al
je 0x6f98de
mov edx, 0x6fa978
lea ecx, [ebp - 0x68]
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov ecx, dword [ebp - 0x68]
lea eax, [ebp - 0x64]
mov edx, 0x6fa9b0
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x64]
call fcn.006f93e4
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov dword [eax + 0x89], 0xffffffff
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov byte [eax + 0x8d], 0
jmp 0x6fa708
cmp byte [ebp + 8], 0
je 0x6f9947
mov edx, 0x6fa98c
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
push edx
push eax
mov eax, dword [ebp - 0x10]
call fcn.006f8154
test al, al
je 0x6f9947
lea eax, [ebp - 0x6c]
mov ecx, dword [ebp - 0x10]
mov edx, 0x6fa9f0
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x6c]
call fcn.006f93e4
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov dword [eax + 0x89], 0xffffffff
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov byte [eax + 0x8d], 0
jmp 0x6fa708
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
cmp byte [eax + 0x90], 0
jne 0x6f9c5a
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
fld qword [eax + 0x28]
fcomp dword [0x6faa24]
wait
fnstsw ax
sahf
ja 0x6f9a92
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x1c]
mov edx, 0x6faa34
call sub.rtl120.bpl__Strutils_ContainsText_qqrx20System_UnicodeStringt1
test al, al
jne 0x6f9a92
mov eax, 0x6faa54
call fcn.006f93e4
mov edx, 0x6fa98c
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
push edx
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x24]
call fcn.00413f80
cmp edx, dword [esp + 4]
jne 0x6f99da
cmp eax, dword [esp]
pop edx
pop eax
jb 0x6f9d57
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov ecx, dword [eax + 0x78]
lea eax, [ebp - 0x70]
mov edx, 0x6faab4
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x70]
call fcn.006f93e4
push 0x6fab18
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x24]
call fcn.00413f80
push edx
push eax
lea eax, [ebp - 0x78]
call sub.rtl120.bpl__Sysutils_IntToStr_qqrj
push dword [ebp - 0x78]
push 0x6fab38
mov edx, 0x6fa98c
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
push edx
push eax
lea eax, [ebp - 0x7c]
call sub.rtl120.bpl__Sysutils_IntToStr_qqrj
push dword [ebp - 0x7c]
lea eax, [ebp - 0x74]
mov edx, 4
call sub.rtl120.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x74]
call fcn.006f93e4
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov dword [eax + 0x89], 0xffffffff
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov byte [eax + 0x8d], 0
jmp 0x6fa708
mov edx, 0x6fab50
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
push edx
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
push dword [eax + 0x2c]
push dword [eax + 0x28]
call fcn.00413ea8
xor edx, edx
cmp edx, dword [esp + 4]
jne 0x6f9aca
cmp eax, dword [esp]
pop edx
pop eax
jbe 0x6f9b23
jmp 0x6f9ace
pop edx
pop eax
jle 0x6f9b23
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov ecx, dword [eax + 0x78]
lea eax, [ebp - 0x80]
mov edx, 0x6fab70
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x80]
call fcn.006f93e4
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov dword [eax + 0x89], 0xffffffff
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov byte [eax + 0x8d], 0
jmp 0x6fa708
mov edx, 0x6fab50
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
push edx
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
push dword [eax + 0x2c]
push dword [eax + 0x28]
call fcn.00413ea8
xor edx, edx
cmp edx, dword [esp + 4]
jne 0x6f9b55
cmp eax, dword [esp]
pop edx
pop eax
jne 0x6f9d57
mov edx, 0x6fa98c
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
push edx
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x24]
call fcn.00413f80
cmp edx, dword [esp + 4]
jne 0x6f9b8a
cmp eax, dword [esp]
pop edx
pop eax
jb 0x6f9d57
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov ecx, dword [eax + 0x78]
lea eax, [ebp - 0x84]
mov edx, 0x6faab4
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x84]
call fcn.006f93e4
push 0x6fab18
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x24]
call fcn.00413f80
push edx
push eax
lea eax, [ebp - 0x8c]
call sub.rtl120.bpl__Sysutils_IntToStr_qqrj
push dword [ebp - 0x8c]
push 0x6fab38
mov edx, 0x6fa98c
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
push edx
push eax
lea eax, [ebp - 0x90]
call sub.rtl120.bpl__Sysutils_IntToStr_qqrj
push dword [ebp - 0x90]
lea eax, [ebp - 0x88]
mov edx, 4
call sub.rtl120.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x88]
call fcn.006f93e4
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov dword [eax + 0x89], 0xffffffff
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov byte [eax + 0x8d], 0
jmp 0x6fa708
mov edx, 0x6fa98c
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
push edx
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x24]
call fcn.00413f80
cmp edx, dword [esp + 4]
jne 0x6f9c87
cmp eax, dword [esp]
pop edx
pop eax
jb 0x6f9d57
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov ecx, dword [eax + 0x78]
lea eax, [ebp - 0x94]
mov edx, 0x6fabb8
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x94]
call fcn.006f93e4
push 0x6fab18
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x24]
call fcn.00413f80
push edx
push eax
lea eax, [ebp - 0x9c]
call sub.rtl120.bpl__Sysutils_IntToStr_qqrj
push dword [ebp - 0x9c]
push 0x6fab38
mov edx, 0x6fa98c
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
push edx
push eax
lea eax, [ebp - 0xa0]
call sub.rtl120.bpl__Sysutils_IntToStr_qqrj
push dword [ebp - 0xa0]
lea eax, [ebp - 0x98]
mov edx, 4
call sub.rtl120.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x98]
call fcn.006f93e4
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov dword [eax + 0x89], 0xffffffff
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov byte [eax + 0x8d], 0
jmp 0x6fa708
mov edx, 0x6fac30
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
and eax, 0x8000
xor edx, edx
cmp edx, 0
jne 0x6f9fad
cmp eax, 0x8000
jne 0x6f9fad
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x1c]
lea edx, [ebp - 0xa4]
call sub.rtl120.bpl__Sysutils_Trim_qqrx20System_UnicodeString
cmp dword [ebp - 0xa4], 0
je 0x6f9fad
lea ecx, [ebp - 0xac]
mov edx, 0x6fac50
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov eax, dword [ebp - 0xac]
lea edx, [ebp - 0xa8]
call sub.rtl120.bpl__Sysutils_Trim_qqrx20System_UnicodeString
cmp dword [ebp - 0xa8], 0
je 0x6f9fad
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x1c]
lea edx, [ebp - 0xb0]
call sub.rtl120.bpl__Sysutils_Trim_qqrx20System_UnicodeString
mov edx, dword [ebp - 0xb0]
mov eax, 0x6faa34
call sub.rtl120.bpl__Sysutils_SameText_qqrx20System_UnicodeStringt1
test al, al
jne 0x6f9fad
mov edx, 0x6fac50
lea ecx, [ebp - 0xb8]
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov eax, dword [ebp - 0xb8]
lea edx, [ebp - 0xb4]
call sub.rtl120.bpl__Sysutils_Trim_qqrx20System_UnicodeString
mov edx, dword [ebp - 0xb4]
mov eax, 0x6faa34
call sub.rtl120.bpl__Sysutils_SameText_qqrx20System_UnicodeStringt1
test al, al
jne 0x6f9fad
mov edx, 0x6fac50
lea ecx, [ebp - 0xc0]
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov eax, dword [ebp - 0xc0]
lea edx, [ebp - 0xbc]
call sub.rtl120.bpl__Sysutils_Trim_qqrx20System_UnicodeString
mov eax, dword [ebp - 0xbc]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x1c]
lea edx, [ebp - 0xc4]
call sub.rtl120.bpl__Sysutils_Trim_qqrx20System_UnicodeString
mov eax, dword [ebp - 0xc4]
pop edx
call sub.rtl120.bpl__Sysutils_SameText_qqrx20System_UnicodeStringt1
test al, al
jne 0x6f9ece
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov dword [eax + 0x89], 0xffffffff
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov byte [eax + 0x8d], 0
jmp 0x6fa708
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x24]
lea edx, [ebp - 0xc8]
call sub.rtl120.bpl__Sysutils_Trim_qqrx20System_UnicodeString
cmp dword [ebp - 0xc8], 0
je 0x6f9fad
lea ecx, [ebp - 0xd0]
mov edx, 0x6fac78
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov eax, dword [ebp - 0xd0]
lea edx, [ebp - 0xcc]
call sub.rtl120.bpl__Sysutils_Trim_qqrx20System_UnicodeString
cmp dword [ebp - 0xcc], 0
je 0x6f9fad
mov edx, 0x6fac78
lea ecx, [ebp - 0xd8]
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov eax, dword [ebp - 0xd8]
lea edx, [ebp - 0xd4]
call sub.rtl120.bpl__Sysutils_Trim_qqrx20System_UnicodeString
mov eax, dword [ebp - 0xd4]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x24]
lea edx, [ebp - 0xdc]
call sub.rtl120.bpl__Sysutils_Trim_qqrx20System_UnicodeString
mov eax, dword [ebp - 0xdc]
pop edx
call sub.rtl120.bpl__Sysutils_SameText_qqrx20System_UnicodeStringt1
test al, al
jne 0x6f9fad
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov dword [eax + 0x89], 0xffffffff
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov byte [eax + 0x8d], 0
jmp 0x6fa708
xor ebx, ebx
mov eax, dword [ebp - 0x18]
mov eax, dword [eax]
mov esi, dword [eax + 8]
dec esi
test esi, esi
jl 0x6fa10e
inc esi
mov dword [ebp - 0x24], 0
lea ecx, [ebp - 0xe0]
mov edx, 0x6fac90
mov eax, dword [ebp - 0xc]
mov edi, dword [eax]
call dword [edi + 0x4c]
mov eax, dword [ebp - 0xe0]
push eax
mov eax, dword [ebp - 0x18]
mov eax, dword [eax]
mov edx, dword [ebp - 0x24]
call fcn.006fbc34
mov eax, dword [eax + 0x40]
pop edx
call sub.rtl120.bpl__Sysutils_SameText_qqrx20System_UnicodeStringt1
test al, al
je 0x6fa104
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov dword [ebp - 0x3c], eax
mov eax, dword [ebp - 0x3c]
mov byte [eax + 0x8d], 1
mov edx, 0x6fa98c
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
push edx
push eax
lea eax, [ebp - 0xe4]
call fcn.00414120
mov edx, dword [ebp - 0xe4]
mov eax, dword [ebp - 0x3c]
add eax, 0x30
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, 0x6fab50
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
call fcn.00413f00
mov eax, dword [ebp - 0x3c]
fstp qword [eax + 0x34]
wait
mov eax, dword [ebp - 0x3c]
cmp byte [eax + 0x90], 0
je 0x6fa0c3
xor eax, eax
push ebp
push 0x6fa0af
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x3c]
cmp byte [eax + 0x92], 0
jne 0x6fa08e
mov eax, dword [ebp - 0x3c]
xor edx, edx
mov dword [eax + 0x48], edx
jmp 0x6fa0a5
mov eax, dword [ebp - 0x3c]
mov edx, dword [eax + 0x30]
mov eax, dword [ebp - 0x3c]
mov eax, dword [eax + 0x24]
call fcn.00414234
mov edx, dword [ebp - 0x3c]
mov dword [edx + 0x48], eax
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x6fa0f4
push 0
push 1
mov eax, dword [ebp - 0x3c]
fld qword [eax + 0x34]
mov eax, dword [ebp - 0x3c]
fsub qword [eax + 0x28]
call sub.rtl120.bpl__System__ROUND_qqrv
push edx
push eax
call sub.rtl120.bpl__Math_Max_qqrxjxj
mov ebx, eax
mov eax, dword [ebp - 0x3c]
mov dword [eax + 0x44], ebx
mov eax, ebx
call fcn.00414204
mov edx, dword [ebp - 0x3c]
mov dword [edx + 0x48], eax
mov eax, dword [ebp - 0x3c]
mov edx, dword [ebp - 0x24]
mov dword [eax + 0x89], edx
mov bl, 1
jmp 0x6fa10e
inc dword [ebp - 0x24]
dec esi
jne 0x6f9fc8
test bl, bl
jne 0x6fa6f8
mov edx, dword [0x413640]
mov eax, 0x90
call sub.rtl120.bpl__System__New_qqripv
mov dword [ebp - 0x28], eax
mov eax, dword [ebp - 0x28]
call fcn.004145dc
xor edx, edx
xor eax, eax
call fcn.00413a14
mov dword [ebp - 0x30], eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
cmp byte [eax + 0x90], 0
je 0x6fa15a
mov eax, dword [ebp - 0x28]
mov byte [eax + 0x5b], 1
mov eax, dword [ebp - 0x28]
mov dword [ebp - 0x40], eax
mov eax, dword [ebp - 0x40]
add eax, 0x34
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, 0x6fac30
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov edx, dword [ebp - 0x40]
mov dword [edx + 0x4c], eax
lea ecx, [ebp - 0xe8]
mov edx, 0x6facac
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov edx, dword [ebp - 0xe8]
mov eax, dword [ebp - 0x40]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, 0x6fac90
lea ecx, [ebp - 0xec]
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov edx, dword [ebp - 0xec]
mov eax, dword [ebp - 0x40]
add eax, 0x40
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x40]
add eax, 0x8c
mov edx, dword [ebp - 0x40]
mov edx, dword [edx + 0x40]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, 0x6faccc
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov ecx, dword [ebp - 0x40]
mov dword [ecx + 0x38], eax
mov dword [ecx + 0x3c], edx
lea ecx, [ebp - 0xf0]
mov edx, 0x6facf4
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov edx, dword [ebp - 0xf0]
mov eax, dword [ebp - 0x40]
add eax, 8
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea ecx, [ebp - 0xf4]
mov edx, 0x6fad18
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov edx, dword [ebp - 0xf4]
mov eax, dword [ebp - 0x40]
add eax, 0x30
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, 0x6fac50
lea ecx, [ebp - 0xf8]
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov edx, dword [ebp - 0xf8]
mov eax, dword [ebp - 0x40]
add eax, 0xc
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov edx, dword [eax + 0xc]
mov eax, dword [ebp - 0x40]
add eax, 4
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov edx, dword [eax + 0x24]
mov eax, dword [ebp - 0x40]
add eax, 0x10
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov edx, dword [ebp - 0x40]
mov ecx, dword [eax + 0x28]
mov dword [edx + 0x14], ecx
mov ecx, dword [eax + 0x2c]
mov dword [edx + 0x18], ecx
mov edx, 0x6fa98c
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
push edx
push eax
lea eax, [ebp - 0xfc]
call fcn.00414120
mov edx, dword [ebp - 0xfc]
mov eax, dword [ebp - 0x40]
add eax, 0x1c
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, 0x6fab50
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
call fcn.00413f00
mov eax, dword [ebp - 0x40]
fstp qword [eax + 0x20]
wait
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov eax, dword [eax + 0x4c]
mov edx, dword [ebp - 0x40]
mov dword [edx + 0x48], eax
mov eax, dword [ebp - 0x28]
cmp byte [eax + 0x5b], 0
je 0x6fa372
xor eax, eax
push ebp
push 0x6fa35e
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
cmp byte [eax + 0x92], 0
jne 0x6fa33d
mov eax, dword [ebp - 0x40]
xor edx, edx
mov dword [eax + 0x2c], edx
jmp 0x6fa354
mov eax, dword [ebp - 0x40]
mov edx, dword [eax + 0x1c]
mov eax, dword [ebp - 0x40]
mov eax, dword [eax + 0x10]
call fcn.00414234
mov edx, dword [ebp - 0x40]
mov dword [edx + 0x2c], eax
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x6fa3a3
push 0
push 1
mov eax, dword [ebp - 0x40]
fld qword [eax + 0x20]
mov eax, dword [ebp - 0x40]
fsub qword [eax + 0x14]
call sub.rtl120.bpl__System__ROUND_qqrv
push edx
push eax
call sub.rtl120.bpl__Math_Max_qqrxjxj
mov ebx, eax
mov eax, dword [ebp - 0x40]
mov dword [eax + 0x28], ebx
mov eax, ebx
call fcn.00414204
mov edx, dword [ebp - 0x40]
mov dword [edx + 0x2c], eax
mov eax, dword [ebp - 0x40]
mov eax, dword [eax + 0x4c]
and eax, 0x400000
cmp eax, 0x400000
jne 0x6fa413
lea ecx, [ebp - 0x100]
mov edx, 0x6fad2c
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov edx, dword [ebp - 0x100]
mov eax, dword [ebp - 0x40]
add eax, 0x64
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea ecx, [ebp - 0x104]
mov edx, 0x6fad48
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov edx, dword [ebp - 0x104]
mov eax, dword [ebp - 0x40]
add eax, 0x68
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, 0x6fad64
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov ecx, dword [ebp - 0x40]
mov dword [ecx + 0x6c], eax
mov dword [ecx + 0x70], edx
mov eax, dword [ebp - 0x40]
mov eax, dword [eax + 0x4c]
and eax, 0x800000
cmp eax, 0x800000
jne 0x6fa4c5
lea ecx, [ebp - 0x108]
mov edx, 0x6fad88
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov edx, dword [ebp - 0x108]
mov eax, dword [ebp - 0x40]
add eax, 0x74
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea ecx, [ebp - 0x10c]
mov edx, 0x6fada4
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov edx, dword [ebp - 0x10c]
mov eax, dword [ebp - 0x40]
add eax, 0x80
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea ecx, [ebp - 0x110]
mov edx, 0x6fadc8
mov eax, dword [ebp - 0xc]
mov ebx, dword [eax]
call dword [ebx + 0x4c]
mov edx, dword [ebp - 0x110]
mov eax, dword [ebp - 0x40]
add eax, 0x84
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, 0x6fadec
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov ecx, dword [ebp - 0x40]
mov dword [ecx + 0x78], eax
mov dword [ecx + 0x7c], edx
mov edx, 0x6fae10
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov edx, dword [ebp - 0x40]
mov dword [edx + 0x88], eax
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx + 0x8c]
mov edx, 0x6fae34
call fcn.00521c68
test al, al
je 0x6fa51a
mov edx, 0x6fae34
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x34]
push edx
push eax
mov eax, dword [ebp - 0x30]
xor edx, edx
and eax, dword [esp]
and edx, dword [esp + 4]
add esp, 8
push edx
push eax
mov eax, dword [ebp - 0x30]
xor edx, edx
cmp edx, dword [esp + 4]
jne 0x6fa50c
cmp eax, dword [esp]
pop edx
pop eax
je 0x6fa51a
mov eax, dword [ebp - 0x40]
or dword [eax + 0x4c], 0x400
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x4c]
and eax, 0x20000
cmp eax, 0x20000
jne 0x6fa5df
mov eax, 0x6fae54
call fcn.006f93e4
mov eax, dword [ebp - 0x28]
mov edx, dword [eax + 0x40]
mov eax, dword [0x8065a8]
mov eax, dword [eax]
call fcn.0061539c
test al, al
je 0x6fa58b
mov eax, dword [ebp - 0x28]
mov ecx, dword [eax + 0x40]
lea eax, [ebp - 0x114]
mov edx, 0x6fae7c
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x114]
call fcn.006f93e4
mov eax, dword [ebp - 0x28]
mov edx, dword [eax + 0x40]
mov eax, dword [0x8065a8]
mov eax, dword [eax]
call fcn.00615320
mov edx, dword [ebp - 0x28]
mov dword [edx + 0x5c], eax
jmp 0x6fa5ad
mov eax, dword [ebp - 0x28]
mov edx, dword [eax + 0x40]
mov eax, dword [0x8065a8]
mov eax, dword [eax]
call fcn.006153e0
mov eax, dword [0x8065a8]
mov eax, dword [eax]
mov eax, dword [eax + 8]
mov edx, dword [ebp - 0x28]
mov dword [edx + 0x5c], eax
lea edx, [ebp - 0x11c]
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x5c]
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x11c]
lea eax, [ebp - 0x118]
mov edx, 0x6faeb4
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x118]
call fcn.006f93e4
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x4c]
and eax, 0x10000
cmp eax, 0x10000
jne 0x6fa605
mov eax, 0x6faed8
call fcn.006f93e4
mov eax, dword [ebp - 0x28]
mov dword [eax + 0x60], 1
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x4c]
and eax, 0x100000
cmp eax, 0x100000
jne 0x6fa62b
mov eax, 0x6faf08
call fcn.006f93e4
mov eax, dword [ebp - 0x28]
mov dword [eax + 0x60], 2
mov eax, dword [ebp - 0x18]
mov eax, dword [eax]
mov edx, dword [ebp - 0x28]
call fcn.006fbe1c
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 0x20]
call fcn.006fb99c
mov ebx, eax
mov byte [ebx + 0x8d], 1
mov eax, dword [ebp - 0x18]
mov eax, dword [eax]
mov edx, dword [eax + 8]
dec edx
mov eax, dword [ebp - 0x18]
mov eax, dword [eax]
call fcn.006fbc34
mov edx, dword [eax + 0x1c]
lea eax, [ebx + 0x30]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x18]
mov eax, dword [eax]
mov edx, dword [eax + 8]
dec edx
mov eax, dword [ebp - 0x18]
mov eax, dword [eax]
call fcn.006fbc34
mov edx, dword [eax + 0x20]
mov dword [ebx + 0x34], edx
mov edx, dword [eax + 0x24]
mov dword [ebx + 0x38], edx
mov eax, dword [ebp - 0x18]
mov eax, dword [eax]
mov edx, dword [eax + 8]
dec edx
mov eax, dword [ebp - 0x18]
mov eax, dword [eax]
call fcn.006fbc34
mov eax, dword [eax + 0x28]
mov dword [ebx + 0x44], eax
mov eax, dword [ebp - 0x18]
mov eax, dword [eax]
mov edx, dword [eax + 8]
dec edx
mov eax, dword [ebp - 0x18]
mov eax, dword [eax]
call fcn.006fbc34
mov eax, dword [eax + 0x2c]
mov dword [ebx + 0x48], eax
mov eax, dword [ebp - 0x18]
mov eax, dword [eax]
mov eax, dword [eax + 8]
dec eax
mov dword [ebx + 0x89], eax
cmp byte [ebp + 0xc], 0
je 0x6fa6e1
mov eax, 0x6faf40
call fcn.006f93e4
inc dword [ebp - 0x1c]
jmp 0x6fa708
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0x4c]
and eax, 0x100000
cmp eax, 0x100000
je 0x6fa708
inc dword [ebp - 0x1c]
jmp 0x6fa708
lea eax, [ebp - 0x10]
call fcn.0051a1dc
test al, al
jne 0x6f9806
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6fa725
lea eax, [ebp - 0x10]
call fcn.0051a254
ret
inc dword [ebp - 0x20]
dec dword [ebp - 0x38]
jne 0x6f95c6
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6fa74e
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
ret