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

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x2e
push 0
push 0
dec ecx
jne 0x627570
push ebx
push esi
push edi
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x627ea6
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, 0x627eb8
call sub.PCommonUtil.bpl__Ncutil_mypos_qqr17System_WideStringt1
test eax, eax
jne 0x6275df
xor ecx, ecx
mov edx, 0x627ecc
mov eax, 0x627ef0
call sym.P_Interface.bpl__Publicutil_MessageBox_qqr17System_AnsiStringt1o
jmp 0x627e6d
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 0x627e6d
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 0x627632
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 0x627e66
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 0x6276b9
xor ecx, ecx
mov edx, 0x627f00
mov eax, 0x627ef0
call sym.P_Interface.bpl__Publicutil_MessageBox_qqr17System_AnsiStringt1o
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x627e6d
push 0x627f24
mov eax, dword [ebp - 4]
push dword [eax + 0x278]
push 0x627f30
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.0x62770b.0
mov al, byte [eax + 0x627712]
jmp dword [eax*4 + 0x62772c]
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x627813
inc eax
mov dword [ebp - 0x20], eax
mov dword [ebp - 0x18], 0
push dword [ebp - 0xc]
push 0x627f40
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 0x627f4c
lea eax, [ebp - 0xc]
mov edx, 4
call sub.rtl70.bpl__System__LStrCatN_qqrv
inc dword [ebp - 0x18]
dec dword [ebp - 0x20]
jne 0x627754
jmp 0x627813
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x627813
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 0x627f58
lea eax, [ebp - 0xc]
mov edx, 4
call sub.rtl70.bpl__System__LStrCatN_qqrv
inc dword [ebp - 0x18]
dec dword [ebp - 0x20]
jne 0x6277aa
jmp 0x627813
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 0x627e6d
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, 0x627f64
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 0x627937
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, 0x627f70
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, 0x627f70
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, 0x627f8c
call sub.rtl70.bpl__System__LStrCat3_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x62794e
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 0x627a0d
inc eax
mov dword [ebp - 0x20], eax
xor ebx, ebx
cmp dword [ebp - 0xc], 0
jne 0x6279c6
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 0x627a07
push dword [ebp - 0xc]
push 0x627fc4
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 0x62799b
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 0x627b2d
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 0x627b16
inc esi
xor ebx, ebx
cmp dword [ebp - 0xc], 0
jne 0x627ad1
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 0x627b12
push dword [ebp - 0xc]
push 0x627fc4
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 0x627aa6
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 0x627a40
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, 0x627fd0
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 0x627c00
inc eax
mov dword [ebp - 0x20], eax
xor ebx, ebx
cmp dword [ebp - 0xc], 0
jne 0x627bb9
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 0x627bfa
push dword [ebp - 0xc]
push 0x627fc4
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 0x627b8e
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 0x627d20
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 0x627d09
inc esi
xor ebx, ebx
cmp dword [ebp - 0xc], 0
jne 0x627cc4
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 0x627d05
push dword [ebp - 0xc]
push 0x627fc4
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 0x627c99
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 0x627c33
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, 0x627ff0
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, 0x627fd0
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, 0x627ff0
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 0x628010
push dword [ebp - 0x14]
push 0x628034
push 0x628040
push 0x62804c
lea eax, [ebp - 0x170]
mov edx, 5
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x170]
xor ecx, ecx
mov eax, 0x627ef0
call sym.P_Interface.bpl__Publicutil_MessageBox_qqr17System_AnsiStringt1o
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x627e6d
cmp dword [ebp - 0x1c], 0
je 0x627e47
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 0x627ead
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