Function at 0x57bd0c
Capabilities:
Delete file

Disassembly:
push ebp
mov ebp, esp
mov ecx, 4
push 0
push 0
dec ecx
jne 0x57bd14
push ecx
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x57becf
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
cmp byte [eax + 0x286], 0
je 0x57be8b
mov eax, dword [ebp - 4]
cmp byte [eax + 0x287], 0
jne 0x57be8b
call sub.kernel32.dll_GetTickCount
mov dword [ebp - 0xc], eax
lea edx, [ebp - 0x18]
mov eax, dword [sym.imp.vcl60.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl60.bpl__Forms_TApplication_GetExeName_qqrv
mov eax, dword [ebp - 0x18]
lea edx, [ebp - 0x14]
call sub.rtl60.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
push dword [ebp - 0x14]
mov eax, dword [ebp - 4]
push dword [eax + 8]
lea edx, [ebp - 0x1c]
mov eax, dword [ebp - 0xc]
call sub.rtl60.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x1c]
push 0x57bee4
lea eax, [ebp - 8]
mov edx, 4
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 8]
call sub.rtl60.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.kernel32.dll_DeleteFileA
lea eax, [ebp - 0x20]
mov edx, dword [ebp - 8]
call sub.rtl60.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x20]
mov cl, 1
mov eax, dword [ebp - 4]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_SaveToFile_qqrx17System_WideString20Adodb_TPersistFormat
mov eax, dword [ebp - 4]
cmp byte [eax + 0x289], 0
je 0x57bdd6
push ebp
mov eax, dword [ebp - 8]
call fcn.0057ba50
pop ecx
jmp 0x57bde0
push ebp
mov eax, dword [ebp - 8]
call fcn.0057b768
pop ecx
mov eax, dword [ebp - 4]
call sub.dbrtl60.bpl__Db_TDataSet_Close_qqrv
mov dl, 4
mov eax, dword [ebp - 4]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_SetCommandType_qqrx18Adodb_TCommandType
mov dl, 4
mov eax, dword [ebp - 4]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_SetLockType_qqrx18Adodb_TADOLockType
lea eax, [ebp - 0x24]
mov edx, dword [ebp - 8]
call sub.rtl60.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x24]
mov eax, dword [ebp - 4]
call sub.adortl60.bpl__Adodb_TCustomADODataSet_SetCommandText_qqrx17System_WideString
mov eax, dword [ebp - 4]
call sub.dbrtl60.bpl__Db_TDataSet_ControlsDisabled_qqrv
mov byte [ebp - 0xd], al
xor eax, eax
push ebp
push 0x57be84
push dword fs:[eax]
mov dword fs:[eax], esp
cmp byte [ebp - 0xd], 0
jne 0x57be39
mov eax, dword [ebp - 4]
call sub.dbrtl60.bpl__Db_TDataSet_DisableControls_qqrv
mov eax, dword [ebp - 4]
mov byte [eax + 0x287], 1
mov dl, 1
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x178]
mov eax, dword [ebp - 4]
mov byte [eax + 0x287], 0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x57be8b
mov eax, dword [ebp - 8]
call sub.rtl60.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.kernel32.dll_DeleteFileA
cmp byte [ebp - 0xd], 0
jne 0x57be83
mov eax, dword [ebp - 4]
call sub.dbrtl60.bpl__Db_TDataSet_EnableControls_qqrv
ret
mov eax, dword [ebp - 4]
cmp byte [eax + 0x287], 0
jne 0x57be9f
mov eax, dword [ebp - 4]
call sub.dbrtl60.bpl__Db_TDataSet_DoAfterOpen_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x57bed6
lea eax, [ebp - 0x24]
mov edx, 2
call sub.rtl60.bpl__System__WStrArrayClr_qqrpvi
lea eax, [ebp - 0x1c]
mov edx, 3
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 8]
call sub.rtl60.bpl__System__LStrClr_qqrpv
ret