Function at 0x684840
Capabilities:
Delete file
Get common file path

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x2e
push 0
push 0
dec ecx
jne 0x684848
push ebx
push esi
push edi
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x68517e
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x108]
mov eax, dword [eax + 8]
lea edx, [ebp - 0x128]
call sub.rtl70.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov edx, dword [ebp - 0x128]
lea eax, [ebp - 0x124]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x124]
mov eax, 0x685190
call sub.PCommonUtil.bpl__Ncutil_mypos_qqr17System_WideStringt1
test eax, eax
jne 0x6848b7
xor ecx, ecx
mov edx, 0x6851a4
mov eax, 0x6851c8
call sym.P_Interface.bpl__Publicutil_MessageBox_qqr17System_AnsiStringt1o
jmp 0x685145
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_GetActive_qqrv
test al, al
je 0x685145
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x270]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_GetActive_qqrv
test al, al
jne 0x68490a
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x270]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov dl, 1
mov ecx, dword [eax]
call dword [ecx + 0x178]
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 8], eax
xor eax, eax
mov dword [ebp - 0x1c], eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_DisableControls_qqrv
xor eax, eax
push ebp
push 0x68513e
push dword fs:[eax]
mov dword fs:[eax], esp
push 1
push 0
push 0
push 1
push 0
push 0
push 1
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x274]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
mov ecx, dword [ebp - 8]
call sym.P_Interface.bpl__Publicutil_GetSelectedRecord_qqrp14System_TObject17System_AnsiStringp16Classes_TStringsot2t3ot2t3o
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x14]
test eax, eax
jne 0x684991
xor ecx, ecx
mov edx, 0x6851d8
mov eax, 0x6851c8
call sym.P_Interface.bpl__Publicutil_MessageBox_qqr17System_AnsiStringt1o
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x685145
push 0x6851fc
mov eax, dword [ebp - 4]
push dword [eax + 0x278]
push 0x685208
lea eax, [ebp - 0xc]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x270]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
movzx eax, byte [eax + 0x40]
cmp eax, 0x19
ja case.0x6849e3.0
mov al, byte [eax + 0x6849ea]
jmp dword [eax*4 + 0x684a04]
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x684aeb
inc eax
mov dword [ebp - 0x20], eax
mov dword [ebp - 0x18], 0
push dword [ebp - 0xc]
push 0x685218
lea ecx, [ebp - 0x12c]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 8]
mov ebx, dword [eax]
call dword [ebx + 0xc]
push dword [ebp - 0x12c]
push 0x685224
lea eax, [ebp - 0xc]
mov edx, 4
call sub.rtl70.bpl__System__LStrCatN_qqrv
inc dword [ebp - 0x18]
dec dword [ebp - 0x20]
jne 0x684a2c
jmp 0x684aeb
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x684aeb
inc eax
mov dword [ebp - 0x20], eax
mov dword [ebp - 0x18], 0
push dword [ebp - 0xc]
push 0
lea ecx, [ebp - 0x130]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 8]
mov ebx, dword [eax]
call dword [ebx + 0xc]
push dword [ebp - 0x130]
push 0x685230
lea eax, [ebp - 0xc]
mov edx, 4
call sub.rtl70.bpl__System__LStrCatN_qqrv
inc dword [ebp - 0x18]
dec dword [ebp - 0x20]
jne 0x684a82
jmp 0x684aeb
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x270]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x278]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov al, byte [eax + 0x40]
call sym.P_Interface.bpl__Publicutil_GETCURDATATYPE_qqr13Db_TFieldType
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x685145
lea eax, [ebp - 0x134]
push eax
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__System__LStrLen_qqrx17System_AnsiString
mov ecx, eax
dec ecx
mov edx, 1
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__System__LStrCopy_qqrv
mov edx, dword [ebp - 0x134]
lea eax, [ebp - 0xc]
mov ecx, 0x68523c
call sub.rtl70.bpl__System__LStrCat3_qqrv
lea ecx, [ebp - 0x138]
mov eax, dword [ebp - 4]
mov ebx, dword [eax + 0x270]
mov eax, dword [ebx + 0x340]
mov edx, dword [ebp - 0xc]
call sub.PCommonUtil.bpl__Ncutil_GroupSql_qqr17System_AnsiStringt1
mov edx, dword [ebp - 0x138]
mov eax, ebx
call sub.MydbGRIDbpl.bpl__Mydbgrid_TMyNewDBGRID_Receieve_qqr17System_AnsiString
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x270]
call sub.MydbGRIDbpl.bpl__Mydbgrid_TMyNewDBGRID_AllSel_qqrv
lea eax, [ebp - 0x10]
push eax
push 0
push 0
call sub.shell32.dll_SHGetSpecialFolderLocation
lea eax, [ebp - 0x120]
push eax
mov eax, dword [ebp - 0x10]
push eax
call sub.shell32.dll_SHGetPathFromIDListA
xor eax, eax
push ebp
push 0x684c0f
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x13c]
lea eax, [ebp - 0x120]
call sub.rtl70.bpl__Sysutils_StrPas_qqrpxc
lea eax, [ebp - 0x13c]
mov edx, 0x685248
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x13c]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x74]
lea edx, [ebp - 0x140]
lea eax, [ebp - 0x120]
call sub.rtl70.bpl__Sysutils_StrPas_qqrpxc
lea eax, [ebp - 0x140]
mov edx, 0x685248
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x140]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.kernel32.dll_DeleteFileA
lea edx, [ebp - 0x144]
lea eax, [ebp - 0x120]
call sub.rtl70.bpl__Sysutils_StrPas_qqrpxc
mov edx, dword [ebp - 0x144]
lea eax, [ebp - 0x14]
mov ecx, 0x685264
call sub.rtl70.bpl__System__LStrCat3_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x684c26
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x44]
lea eax, [ebp - 0xc]
call sub.rtl70.bpl__System__LStrClr_qqrpv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov edx, dword [eax]
call dword [edx + 0x21c]
mov dword [ebp - 0x1c], eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
dec eax
test eax, eax
jl 0x684ce5
inc eax
mov dword [ebp - 0x20], eax
xor ebx, ebx
cmp dword [ebp - 0xc], 0
jne 0x684c9e
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
mov edx, ebx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
jmp 0x684cdf
push dword [ebp - 0xc]
push 0x68529c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
mov edx, ebx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x148]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
push dword [ebp - 0x148]
lea eax, [ebp - 0xc]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
inc ebx
dec dword [ebp - 0x20]
jne 0x684c73
mov edx, dword [ebp - 0xc]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
mov eax, dword [eax + 0x2f4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJBookmarkList_GetCount_qqrv
dec eax
test eax, eax
jl 0x684e05
inc eax
mov dword [ebp - 0x20], eax
mov dword [ebp - 0x18], 0
lea ecx, [ebp - 0x14c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
mov eax, dword [eax + 0x2f4]
mov edx, dword [ebp - 0x18]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJBookmarkList_GetItem_qqri
mov eax, dword [ebp - 0x14c]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x17c]
lea eax, [ebp - 0xc]
call sub.rtl70.bpl__System__LStrClr_qqrpv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
mov esi, eax
dec esi
test esi, esi
jl 0x684dee
inc esi
xor ebx, ebx
cmp dword [ebp - 0xc], 0
jne 0x684da9
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
mov edx, ebx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x60]
jmp 0x684dea
push dword [ebp - 0xc]
push 0x68529c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
mov edx, ebx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x150]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x150]
lea eax, [ebp - 0xc]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
inc ebx
dec esi
jne 0x684d7e
mov edx, dword [ebp - 0xc]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc dword [ebp - 0x18]
dec dword [ebp - 0x20]
jne 0x684d18
lea edx, [ebp - 0x154]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x154]
mov edx, 0x6852a8
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x154]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x74]
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x44]
lea eax, [ebp - 0xc]
call sub.rtl70.bpl__System__LStrClr_qqrpv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x270]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
dec eax
test eax, eax
jl 0x684ed8
inc eax
mov dword [ebp - 0x20], eax
xor ebx, ebx
cmp dword [ebp - 0xc], 0
jne 0x684e91
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x270]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
mov edx, ebx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
jmp 0x684ed2
push dword [ebp - 0xc]
push 0x68529c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x270]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
mov edx, ebx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x158]
call sub.dbrtl70.bpl__Db_TField_GetFullName_qqrv
push dword [ebp - 0x158]
lea eax, [ebp - 0xc]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
inc ebx
dec dword [ebp - 0x20]
jne 0x684e66
mov edx, dword [ebp - 0xc]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x270]
mov eax, dword [eax + 0x2f4]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJBookmarkList_GetCount_qqrv
dec eax
test eax, eax
jl 0x684ff8
inc eax
mov dword [ebp - 0x20], eax
mov dword [ebp - 0x18], 0
lea ecx, [ebp - 0x15c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x270]
mov eax, dword [eax + 0x2f4]
mov edx, dword [ebp - 0x18]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJBookmarkList_GetItem_qqri
mov eax, dword [ebp - 0x15c]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x270]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x17c]
lea eax, [ebp - 0xc]
call sub.rtl70.bpl__System__LStrClr_qqrpv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x270]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldCount_qqrv
mov esi, eax
dec esi
test esi, esi
jl 0x684fe1
inc esi
xor ebx, ebx
cmp dword [ebp - 0xc], 0
jne 0x684f9c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x270]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
mov edx, ebx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x60]
jmp 0x684fdd
push dword [ebp - 0xc]
push 0x68529c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x270]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov eax, dword [eax + 0x30]
mov edx, ebx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
lea edx, [ebp - 0x160]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x160]
lea eax, [ebp - 0xc]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
inc ebx
dec esi
jne 0x684f71
mov edx, dword [ebp - 0xc]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc dword [ebp - 0x18]
dec dword [ebp - 0x20]
jne 0x684f0b
lea edx, [ebp - 0x164]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x164]
mov edx, 0x6852c8
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x164]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x74]
lea edx, [ebp - 0x168]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x168]
mov edx, 0x6852a8
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x168]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
mov eax, dword [ebp - 0x14]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
mov ebx, eax
mov edx, ebx
pop eax
call sub.PCommonUtil.bpl__Ncutil_MyVclZip_AddFile_qqrpct1
lea edx, [ebp - 0x16c]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x16c]
mov edx, 0x6852c8
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x16c]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
mov edx, ebx
pop eax
call sub.PCommonUtil.bpl__Ncutil_MyVclZip_AddFile_qqrpct1
push 0x6852e8
push dword [ebp - 0x14]
push 0x68530c
push 0x685318
push 0x685324
lea eax, [ebp - 0x170]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x170]
xor ecx, ecx
mov eax, 0x6851c8
call sym.P_Interface.bpl__Publicutil_MessageBox_qqr17System_AnsiStringt1o
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x685145
cmp dword [ebp - 0x1c], 0
je 0x68511f
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov edx, dword [ebp - 0x1c]
call sub.dbrtl70.bpl__Db_TDataSet_GotoBookmark_qqrpv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
mov edx, dword [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0x218]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x26c]
call sub.MydbGRIDbpl.bpl__Rwkjdbgrids_TRWKJCustomDBGrid_GetDataSource_qqrv
mov eax, dword [eax + 0x30]
call sub.dbrtl70.bpl__Db_TDataSet_EnableControls_qqrv
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x685185
lea eax, [ebp - 0x170]
mov edx, 0x13
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x124]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x14]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0xc]
call sub.rtl70.bpl__System__LStrClr_qqrpv
ret