Function at 0x5fd248
Capabilities:
Set file attributes

Disassembly:
push ebp
mov ebp, esp
mov ecx, 8
push 0
push 0
dec ecx
jne 0x5fd250
push ecx
push ebx
push esi
push edi
mov ebx, edx
mov dword [ebp - 8], eax
xor eax, eax
push ebp
push 0x5fd959
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [ebp - 9], 1
mov eax, dword [ebp - 8]
call fcn.005fd214
xor ecx, ecx
mov dl, 1
mov eax, dword [0x5f865c]
call fcn.005f8bd0
mov esi, eax
mov eax, dword [ebp - 8]
mov dword [eax + 0xc0], esi
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x7c]
mov dword [esi + 0x74], eax
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x80]
mov dword [esi + 0xf0], eax
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x70]
mov eax, esi
call fcn.005fbbfc
lea edx, [ebp - 0x18]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
mov eax, dword [eax + 0xec]
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x18]
lea eax, [ebp - 0x14]
mov edx, 0x5fd978
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 8]
call fcn.005fc248
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
mov edx, dword [ebp - 8]
mov dword [eax + 0xfc], edx
mov dword [eax + 0xf8], 0x5fca64
mov edx, dword [ebp - 8]
mov dword [eax + 0x12c], edx
mov dword [eax + 0x128], 0x5fd1a8
mov edx, dword [ebp - 8]
mov dword [eax + 0x11c], edx
mov dword [eax + 0x118], 0x5fcae4
mov edx, dword [ebp - 8]
mov dword [eax + 0x124], edx
mov dword [eax + 0x120], 0x5fce50
mov edx, dword [ebp - 8]
mov dword [eax + 0x104], edx
mov dword [eax + 0x100], 0x5fcba8
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x68]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x90]
call fcn.005fe604
mov edx, dword [eax]
lea ecx, [ebp - 4]
mov eax, dword [0x5504e4]
call fcn.00550c4c
lea ecx, [ebp - 0x1c]
mov edx, dword [ebp - 4]
mov eax, dword [0x5504e4]
call fcn.0055122c
mov edx, dword [ebp - 0x1c]
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xb0
mov edx, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x68]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x90]
call fcn.005fe604
mov edx, dword [eax + 8]
lea eax, [ebp - 0x20]
mov ecx, 0x5fd9d0
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x20]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
call fcn.005fbc10
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
mov eax, dword [eax + 0xe4]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x5fd4e7
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x68]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x90]
call fcn.005fe604
mov eax, dword [eax + 8]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x5fd4e7
xor eax, eax
push ebp
push 0x5fd491
push dword fs:[eax]
mov dword fs:[eax], esp
push 0xa0
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x68]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x90]
call fcn.005fe604
mov eax, dword [eax + 8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_SetFileAttributesW
push 0x11
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x68]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x90]
call fcn.005fe604
mov ecx, dword [eax + 8]
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TFileStream_]
call sub.rtl120.bpl__Classes_TFileStream__bctr_qqrx20System_UnicodeStringus
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0xc0]
mov dword [edx + 0x8c], eax
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x5fd5da
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
mov eax, dword [eax + 0xe4]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x5fd513
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
mov eax, dword [eax + 0xe4]
call sub.rtl120.bpl__Sysutils_DeleteFile_qqrx20System_UnicodeString
xor eax, eax
push ebp
push 0x5fd589
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x68]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x90]
call fcn.005fe604
mov eax, dword [eax + 8]
lea edx, [ebp - 0x28]
call sub.rtl120.bpl__Sysutils_ExtractFilePath_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x28]
call sub.rtl120.bpl__Sysutils_ForceDirectories_qqr20System_UnicodeString
push 0xffff
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x68]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x90]
call fcn.005fe604
mov ecx, dword [eax + 8]
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TFileStream_]
call sub.rtl120.bpl__Classes_TFileStream__bctr_qqrx20System_UnicodeStringus
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0xc0]
mov dword [edx + 0x8c], eax
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x5fd5da
mov eax, ebx
sub al, 1
jb 0x5fd5f3
je 0x5fd6c1
dec al
je 0x5fd82b
jmp 0x5fd936
lea edx, [ebp - 0x34]
movzx eax, bl
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x34]
lea eax, [ebp - 0x30]
mov edx, 0x5fda48
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x30]
mov eax, dword [ebp - 8]
call fcn.005fc248
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xb4
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xb8
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xbc
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xc0
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xcc
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xd4
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xd0
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
mov byte [eax + 0xd8], 0
jmp 0x5fd936
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
mov ecx, dword [eax + 0xb0]
mov dl, 1
mov eax, dword [0x5fc0a4]
call fcn.005fe518
mov dword [ebp - 0x10], eax
xor eax, eax
push ebp
push 0x5fd824
push dword fs:[eax]
mov dword fs:[eax], esp
jmp 0x5fd702
mov eax, dword [sym.imp.vcl120.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TApplication_ProcessMessages_qqrv
push 0xa
call sub.kernel32.dll_Sleep
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0x10], 0
je 0x5fd6ef
lea edx, [ebp - 0x3c]
movzx eax, bl
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x3c]
lea eax, [ebp - 0x38]
mov edx, 0x5fda48
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x38]
mov eax, dword [ebp - 8]
call fcn.005fc248
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
mov dword [eax + 0x74], 1
mov eax, dword [ebp - 8]
add eax, 0x50
mov edx, dword [ebp - 0x10]
mov edx, dword [edx + 0x48]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
add eax, 0x48
mov edx, dword [ebp - 0x10]
mov edx, dword [edx + 0x44]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xb4
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xb8
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xbc
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0x50]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xc0
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0x48]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xcc
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xd4
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xd0
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
mov byte [eax + 0xd8], 2
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x5fd936
mov eax, dword [ebp - 0x10]
call sub.rtl120.bpl__System_TObject_Free_qqrv
ret
lea edx, [ebp - 0x44]
movzx eax, bl
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x44]
lea eax, [ebp - 0x40]
mov edx, 0x5fda48
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x40]
mov eax, dword [ebp - 8]
call fcn.005fc248
mov eax, dword [ebp - 8]
mov ebx, dword [eax + 0xc0]
mov dword [ebx + 0x74], 1
lea eax, [ebx + 0xb4]
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xb8
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xbc
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0x50]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xc0
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0x48]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xc4
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0x54]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xc8
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0x4c]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xcc
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xd4
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
add eax, 0xd0
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc0]
mov byte [eax + 0xd8], 2
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x5fd960
lea eax, [ebp - 0x44]
mov edx, 0xd
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret