Function at 0x59836b04
Capabilities:
Get file size
Write file on windows

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0x19
push 0
push 0
dec ecx
jne 0x59836b0d
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov ebx, ecx
mov dword [ebp - 4], edx
mov dword [ebp - 0x24], eax
mov esi, dword [ebp + 8]
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x598374d8
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [ebp - 0x25], 0
cmp dword [ebp - 4], 0
je 0x59837436
cmp dword [ebp - 0x24], 0
jne 0x59836d71
lea edx, [ebp - 8]
mov eax, esi
mov ecx, dword [eax]
call dword [ecx + 0x1f8]
cmp byte [ebp + 0xc], 0
jne 0x59836d53
mov eax, 0xfa
call fcn.5981b560
test al, al
je 0x59836b84
push 0
call sub.user32.dll_MessageBeep
jmp 0x59837436
push 0x7fffffff
mov edi, dword [sym.imp.madBasic_.bpl__Madstrings_PosStrW]
mov edi, dword [edi]
mov ecx, 1
mov edx, dword [ebp - 8]
mov eax, 0x598374fc
call edi
test eax, eax
jle 0x59836bcd
lea edx, [ebp - 0x94]
mov eax, dword [ebp - 8]
call sym.madExcept_.bpl__Madexcept_RelativeToAbsolute_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x94]
lea eax, [ebp - 8]
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea edx, [ebp - 0xc]
mov eax, dword [ebp - 8]
call sub.madBasic_.bpl__Madstrings_ExtractFilePathW_qqrx20System_UnicodeString
jmp 0x59836bdc
lea ecx, [ebp - 0xc]
mov dl, 1
mov eax, 0x10
call sym.madExcept_.bpl__Madexcept_GetSpecialFolderW_qqrio
lea edx, [ebp - 0x98]
mov eax, dword [ebp - 8]
call sub.madBasic_.bpl__Madstrings_ExtractFileNameW_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x98]
lea eax, [ebp - 8]
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 8]
mov edx, 0x5983750c
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 8]
mov edx, 0x105
call sub.rtl120.bpl__System__UStrSetLength_qqrr20System_UnicodeStringi
lea edx, [ebp - 0x10]
mov eax, esi
mov ecx, dword [eax]
call dword [ecx + 0x2ac]
lea eax, [ebp - 0x8d]
mov edx, 0x4c
call fcn.59802018
mov dword [ebp - 0x8d], 0x4c
mov dword [ebp - 0x89], ebx
mov dword [ebp - 0x75], 1
mov dword [ebp - 0x6d], 0x104
mov dword [ebp - 0x59], 0x8004
call sub.kernel32.dll_GetVersion
test eax, 0x80000000
jne 0x59836cb8
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
mov dword [ebp - 0x71], eax
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
mov dword [ebp - 0x61], eax
mov eax, dword [ebp - 0x10]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
mov dword [ebp - 0x5d], eax
mov eax, 0x59837510
mov dword [ebp - 0x81], eax
mov eax, 0x5983752c
mov dword [ebp - 0x51], eax
lea eax, [ebp - 0x8d]
push eax
call sub.comdlg32.dll_GetSaveFileNameW
test eax, eax
je 0x59837436
lea eax, [ebp - 8]
mov edx, dword [ebp - 0x71]
call sub.rtl120.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
jmp 0x59836d7c
lea eax, [ebp - 0x14]
mov edx, dword [ebp - 8]
mov ecx, 0
call sub.rtl120.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
lea eax, [ebp - 0x18]
mov edx, dword [ebp - 0xc]
mov ecx, 0
call sub.rtl120.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
lea eax, [ebp - 0x1c]
mov edx, dword [ebp - 0x10]
mov ecx, 0
call sub.rtl120.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov eax, dword [ebp - 0x14]
call sub.rtl120.bpl__System__LStrToPChar_qqrx27System__AnsiStringT_us_i0__
mov dword [ebp - 0x71], eax
mov eax, dword [ebp - 0x18]
call sub.rtl120.bpl__System__LStrToPChar_qqrx27System__AnsiStringT_us_i0__
mov dword [ebp - 0x61], eax
mov eax, dword [ebp - 0x1c]
call sub.rtl120.bpl__System__LStrToPChar_qqrx27System__AnsiStringT_us_i0__
mov dword [ebp - 0x5d], eax
mov eax, 0x59837538
mov dword [ebp - 0x81], eax
mov eax, 0x59837548
mov dword [ebp - 0x51], eax
lea eax, [ebp - 0x8d]
push eax
call sub.comdlg32.dll_GetSaveFileNameA
test eax, eax
je 0x59837436
lea eax, [ebp - 0x9c]
mov edx, dword [ebp - 0x71]
mov ecx, 0
call sub.rtl120.bpl__System__LStrFromPChar_qqrr27System__AnsiStringT_us_i0__pcus
mov edx, dword [ebp - 0x9c]
lea eax, [ebp - 8]
call sub.rtl120.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
jmp 0x59836d7c
lea edx, [ebp - 0xa0]
mov eax, dword [ebp - 8]
call sym.madExcept_.bpl__Madexcept_RelativeToAbsolute_qqrx20System_UnicodeString
mov edx, dword [ebp - 0xa0]
lea eax, [ebp - 8]
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x59836d7c
lea eax, [ebp - 8]
mov edx, dword [ebp - 0x24]
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
push ebp
mov eax, dword [ebp - 8]
call fcn.598367b0
pop ecx
call sub.kernel32.dll_GetVersion
test eax, 0x80000000
jne 0x59836db3
push 0
push 0
push 4
push 0
push 0
push 0xc0000000
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_CreateFileW
mov ebx, eax
jmp 0x59836de8
push 0
push 0
push 4
push 0
push 0
push 0xc0000000
lea eax, [ebp - 0xa4]
mov edx, dword [ebp - 8]
mov ecx, 0
call sub.rtl120.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov eax, dword [ebp - 0xa4]
call sub.rtl120.bpl__System__LStrToPChar_qqrx27System__AnsiStringT_us_i0__
push eax
call sub.kernel32.dll_CreateFileA
mov ebx, eax
cmp ebx, 0xffffffff
jne 0x59836f14
push 0x7fffffff
lea edx, [ebp - 0xa8]
mov eax, esi
mov ecx, dword [eax]
call dword [ecx + 0x1f8]
mov edx, dword [ebp - 0xa8]
mov edi, dword [sym.imp.madBasic_.bpl__Madstrings_PosStrW]
mov edi, dword [edi]
mov ecx, 1
mov eax, 0x598374fc
call edi
test eax, eax
jne 0x59836f14
push 0x5983755c
lea edx, [ebp - 0xb4]
xor eax, eax
call fcn.5981950c
mov eax, dword [ebp - 0xb4]
lea edx, [ebp - 0xb0]
call sub.madBasic_.bpl__Madstrings_ExtractFileNameW_qqrx20System_UnicodeString
mov eax, dword [ebp - 0xb0]
lea edx, [ebp - 0xac]
call fcn.598195c0
push dword [ebp - 0xac]
push 0x598374fc
lea edx, [ebp - 0xb8]
mov eax, esi
mov ecx, dword [eax]
call dword [ecx + 0x1f8]
push dword [ebp - 0xb8]
lea eax, [ebp - 8]
mov edx, 4
call sub.rtl120.bpl__System__UStrCatN_qqrv
push 0x59837588
push 0x598375ac
push 0x598375d0
lea edx, [ebp - 8]
mov ecx, 0x598375fc
xor eax, eax
call sym.madExcept_.bpl__Madexcept_ExpandVars_qqruir20System_UnicodeStringx20System_UnicodeStringt3t3t3
push ebp
mov eax, dword [ebp - 8]
call fcn.598367b0
pop ecx
call sub.kernel32.dll_GetVersion
test eax, 0x80000000
jne 0x59836edf
push 0
push 0
push 4
push 0
push 0
push 0xc0000000
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_CreateFileW
mov ebx, eax
jmp 0x59836f14
push 0
push 0
push 4
push 0
push 0
push 0xc0000000
lea eax, [ebp - 0xbc]
mov edx, dword [ebp - 8]
mov ecx, 0
call sub.rtl120.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov eax, dword [ebp - 0xbc]
call sub.rtl120.bpl__System__LStrToPChar_qqrx27System__AnsiStringT_us_i0__
push eax
call sub.kernel32.dll_CreateFileA
mov ebx, eax
cmp ebx, 0xffffffff
je 0x59837436
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x200]
test al, al
je 0x598373af
push 0
push ebx
call sub.kernel32.dll_GetFileSize
mov dword [ebp - 0x2c], eax
lea eax, [ebp - 8]
xor edx, edx
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
cmp dword [ebp - 0x2c], 0
jbe 0x59837002
lea ecx, [ebp - 8]
mov edx, 0x59837624
mov eax, dword [ebp - 4]
call sym.madExcept_.bpl__Madexcept_ExtractBugReportHeaderField_qqrx20System_UnicodeStringt1
lea eax, [ebp - 8]
call sub.rtl120.bpl__System__EnsureUnicodeString_qqrr20System_UnicodeString
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
cmp eax, 0x1f
jne 0x59836ff8
lea ecx, [ebp - 0xc0]
mov edx, 0x5983764c
mov eax, dword [ebp - 4]
call sym.madExcept_.bpl__Madexcept_ExtractBugReportHeaderField_qqrx20System_UnicodeStringt1
cmp dword [ebp - 0xc0], 0
je 0x59836fa9
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x210]
mov byte [ebp - 0x41], al
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x220]
jmp 0x59836fc0
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x218]
mov byte [ebp - 0x41], al
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x228]
cmp byte [ebp - 0x41], 0
jne 0x59836fd2
lea eax, [ebp - 8]
xor edx, edx
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x59837002
sub al, 1
jb 0x59836fda
je 0x59836fe9
jmp 0x59837002
lea eax, [ebp - 8]
mov edx, 9
call sub.rtl120.bpl__System__UStrSetLength_qqrr20System_UnicodeStringi
jmp 0x59837002
lea eax, [ebp - 8]
mov edx, 0x14
call sub.rtl120.bpl__System__UStrSetLength_qqrr20System_UnicodeStringi
jmp 0x59837002
lea eax, [ebp - 8]
xor edx, edx
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x208]
test eax, eax
jbe 0x5983701f
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x208]
cmp eax, dword [ebp - 0x2c]
jb 0x59837023
xor eax, eax
jmp 0x59837025
mov al, 1
mov byte [ebp - 0x41], al
cmp byte [ebp - 0x41], 0
jne 0x59837038
cmp dword [ebp - 8], 0
je 0x598373a1
push 0
push 0
push 0
push 4
push 0
push ebx
call sub.kernel32.dll_CreateFileMappingW
mov dword [ebp - 0x3c], eax
cmp dword [ebp - 0x3c], 0
je 0x598373a1
push 0
push 0
push 0
push 0xf001f
mov eax, dword [ebp - 0x3c]
push eax
call sub.kernel32.dll_MapViewOfFile
mov dword [ebp - 0x40], eax
cmp dword [ebp - 0x40], 0
je 0x59837398
cmp dword [ebp - 8], 0
je 0x598372fe
lea edx, [ebp - 0x14]
mov eax, dword [ebp - 8]
call sub.madBasic_.bpl__Madstrings_EncodeUtf8_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x2c]
mov dword [ebp - 0x30], eax
mov eax, dword [ebp - 0x2c]
push eax
push 0
mov eax, dword [ebp - 0x30]
dec eax
push eax
push 0
lea eax, [ebp - 0x14]
xor edx, edx
call sub.rtl120.bpl__System__EnsureAnsiString_qqrr27System__AnsiStringT_us_i0__us
call sub.rtl120.bpl__System__LStrLen_qqrx27System__AnsiStringT_us_i0__
add eax, 2
push eax
lea eax, [ebp - 0xc4]
mov ecx, dword [ebp - 0x14]
mov edx, 0x59837678
call sub.rtl120.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 0xc4]
call sub.rtl120.bpl__System__LStrToPChar_qqrx27System__AnsiStringT_us_i0__
mov edi, dword [sym.imp.madBasic_.bpl__Madstrings_PosPCharA]
mov edi, dword [edi]
mov edx, dword [ebp - 0x40]
pop ecx
call edi
mov dword [ebp - 0x30], eax
cmp dword [ebp - 0x30], 0
jl 0x598372f4
mov eax, dword [ebp - 0x2c]
push eax
push 0
mov eax, dword [ebp - 0x30]
push eax
push 0
mov edi, dword [sym.imp.madBasic_.bpl__Madstrings_PosPCharA]
mov edi, dword [edi]
mov eax, 0x5983767c
mov ecx, 0xb
mov edx, dword [ebp - 0x40]
call edi
mov dword [ebp - 0x34], eax
cmp dword [ebp - 0x34], 0
jge 0x5983713c
mov eax, dword [ebp - 0x2c]
push eax
push 0
push 0
push 0
mov edi, dword [sym.imp.madBasic_.bpl__Madstrings_PosPCharA]
mov edi, dword [edi]
mov eax, 0x59837688
mov ecx, 9
mov edx, dword [ebp - 0x40]
call edi
mov dword [ebp - 0x34], eax
jmp 0x59837140
add dword [ebp - 0x34], 2
cmp dword [ebp - 0x34], 0
jl 0x598372f4
mov eax, dword [ebp - 0x2c]
push eax
push 0
mov eax, dword [ebp - 0x30]
push eax
push 0x7fffffff
mov edi, dword [sym.imp.madBasic_.bpl__Madstrings_PosPCharA]
mov edi, dword [edi]
mov eax, 0x5983767c
mov ecx, 0xb
mov edx, dword [ebp - 0x40]
call edi
mov dword [ebp - 0x38], eax
cmp dword [ebp - 0x38], 0
jge 0x59837181
mov eax, dword [ebp - 0x2c]
mov dword [ebp - 0x38], eax
jmp 0x59837185
add dword [ebp - 0x38], 2
push 0
mov ecx, dword [ebp - 0x38]
sub ecx, dword [ebp - 0x34]
mov edx, dword [ebp - 0x40]
add edx, dword [ebp - 0x34]
lea eax, [ebp - 0x18]
call sub.rtl120.bpl__System__LStrFromPCharLen_qqrr27System__AnsiStringT_us_i0__pcius
lea edx, [ebp - 0xc]
mov eax, dword [ebp - 0x18]
call sub.madBasic_.bpl__Madstrings_DecodeUtf8_qqrx27System__AnsiStringT_us_i0__
mov ecx, 0x598376a0
mov edx, dword [ebp - 4]
mov eax, dword [ebp - 0xc]
call fcn.59836a90
test al, al
je 0x598372f4
mov ecx, 0x598376c4
mov edx, dword [ebp - 4]
mov eax, dword [ebp - 0xc]
call fcn.59836a90
test al, al
je 0x598372f4
mov ecx, 0x5983764c
mov edx, dword [ebp - 4]
mov eax, dword [ebp - 0xc]
call fcn.59836a90
test al, al
je 0x598372f4
mov ecx, 0x598376f0
mov edx, dword [ebp - 4]
mov eax, dword [ebp - 0xc]
call fcn.59836a90
test al, al
je 0x598372f4
lea ecx, [ebp - 0xc8]
mov edx, 0x598376f0
mov eax, dword [ebp - 0xc]
call sym.madExcept_.bpl__Madexcept_ExtractBugReportHeaderField_qqrx20System_UnicodeStringt1
cmp dword [ebp - 0xc8], 0
jne 0x59837252
mov ecx, 0x5983770c
mov edx, dword [ebp - 4]
mov eax, dword [ebp - 0xc]
call fcn.59836a90
test al, al
je 0x598372f4
mov ecx, 0x59837738
mov edx, dword [ebp - 4]
mov eax, dword [ebp - 0xc]
call fcn.59836a90
test al, al
je 0x598372f4
lea ecx, [ebp - 8]
mov edx, 0x59837768
mov eax, dword [ebp - 0xc]
call sym.madExcept_.bpl__Madexcept_ExtractBugReportHeaderField_qqrx20System_UnicodeStringt1
cmp dword [ebp - 8], 0
je 0x59837292
lea eax, [ebp - 8]
call sub.rtl120.bpl__System__EnsureUnicodeString_qqrr20System_UnicodeString
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
mov edx, eax
mov edi, dword [sym.imp.madBasic_.bpl__Madstrings_StrToIntExW]
mov edi, dword [edi]
xor eax, eax
pop ecx
call edi
mov dword [ebp - 0x30], eax
jmp 0x59837299
mov dword [ebp - 0x30], 1
lea eax, [ebp - 0xcc]
push eax
mov eax, dword [ebp - 0x30]
inc eax
mov cx, 0x30
mov edx, 1
call sub.madBasic_.bpl__Madstrings_IntToStrExW_qqriib
mov eax, dword [ebp - 0xcc]
push eax
lea eax, [ebp - 4]
mov ecx, 0x59837624
mov edx, 0x59837768
call fcn.59836914
mov eax, dword [ebp - 0x38]
cmp eax, dword [ebp - 0x2c]
jae 0x598372e9
mov ecx, dword [ebp - 0x2c]
sub ecx, eax
mov edx, dword [ebp - 0x40]
add edx, dword [ebp - 0x34]
mov eax, dword [ebp - 0x40]
add eax, dword [ebp - 0x38]
call sub.rtl120.bpl__System_Move_qqrpxvpvi
mov eax, dword [ebp - 0x38]
sub eax, dword [ebp - 0x34]
sub dword [ebp - 0x2c], eax
jmp 0x598372fe
cmp dword [ebp - 0x30], 0xffffffff
jne 0x59837091
cmp byte [ebp - 0x41], 0
je 0x5983738f
push 0
push 0
push 0
push ebx
call sub.kernel32.dll_SetFilePointer
xor eax, eax
mov dword [ebp - 0x30], eax
mov eax, dword [ebp - 0x2c]
push eax
push 0
mov eax, dword [ebp - 0x30]
inc eax
push eax
push 0x7fffffff
mov edi, dword [sym.imp.madBasic_.bpl__Madstrings_PosPCharA]
mov edi, dword [edi]
mov eax, 0x5983767c
mov ecx, 0xb
mov edx, dword [ebp - 0x40]
call edi
mov dword [ebp - 0x30], eax
cmp dword [ebp - 0x30], 0xffffffff
je 0x5983736e
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x208]
mov edi, eax
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x208]
shr eax, 2
sub edi, eax
mov eax, dword [ebp - 0x2c]
sub eax, dword [ebp - 0x30]
cmp edi, eax
jbe 0x59837319
cmp dword [ebp - 0x30], 0xffffffff
je 0x5983738f
add dword [ebp - 0x30], 2
mov eax, dword [ebp - 0x30]
sub dword [ebp - 0x2c], eax
mov edx, dword [ebp - 0x40]
mov eax, dword [ebp - 0x40]
add eax, dword [ebp - 0x30]
mov ecx, dword [ebp - 0x2c]
call sub.rtl120.bpl__System_Move_qqrpxvpvi
mov eax, dword [ebp - 0x40]
push eax
call sub.kernel32.dll_UnmapViewOfFile
mov eax, dword [ebp - 0x3c]
push eax
call sub.kernel32.dll_CloseHandle
push 0
push 0
mov eax, dword [ebp - 0x2c]
push eax
push ebx
call sub.kernel32.dll_SetFilePointer
push dword [ebp - 4]
push 0x59837780
push 0x59837780
lea eax, [ebp - 4]
mov edx, 3
call sub.rtl120.bpl__System__UStrCatN_qqrv
lea edx, [ebp - 0x14]
mov eax, dword [ebp - 4]
call sub.madBasic_.bpl__Madstrings_EncodeUtf8_qqrx20System_UnicodeString
push 0
lea eax, [ebp - 0x2c]
push eax
lea eax, [ebp - 0x14]
xor edx, edx
call sub.rtl120.bpl__System__EnsureAnsiString_qqrr27System__AnsiStringT_us_i0__us
call sub.rtl120.bpl__System__LStrLen_qqrx27System__AnsiStringT_us_i0__
push eax
mov eax, dword [ebp - 0x14]
push eax
push ebx
call sub.kernel32.dll_WriteFile
cmp eax, 1
sbb eax, eax
inc eax
mov byte [ebp - 0x25], al
push ebx
call sub.kernel32.dll_SetEndOfFile
push ebx
call sub.kernel32.dll_CloseHandle
cmp dword [ebp - 0x24], 0
sete al
and al, byte [ebp + 0xc]
je 0x59837436
lea eax, [ebp - 0x20]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
push eax
push 0x59837788
push esi
mov eax, dword [esi]
call dword [eax]
test eax, eax
jne 0x59837436
mov dl, 1
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x24]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x598374e2
lea eax, [ebp - 0xcc]
mov edx, 2
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0xc4]
call sub.rtl120.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0xc0]
call sub.rtl120.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0xbc]
call sub.rtl120.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0xb8]
mov edx, 5
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0xa4]
call sub.rtl120.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0xa0]
call sub.rtl120.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x9c]
call sub.rtl120.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x98]
mov edx, 2
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x20]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x1c]
mov edx, 3
call sub.rtl120.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x10]
mov edx, 4
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret