Function at 0x41c3ff8
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0x1f
push 0
push 0
dec ecx
jne 0x41c4001
push ecx
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov dword [ebp - 0xc], ecx
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
call sub.rtl60.bpl__System__LStrAddRef_qqrpv
mov eax, dword [ebp - 8]
call sub.rtl60.bpl__System__LStrAddRef_qqrpv
lea eax, [ebp - 0x60]
mov edx, dword [0x41c0314]
call sub.rtl60.bpl__System__InitializeRecord_qqrpvt1
xor eax, eax
push ebp
push 0x41c4e39
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, 0x41d620c
mov edx, dword [ebp - 8]
call sub.rtl60.bpl__System__LStrAsg_qqrpvpxv
xor edx, edx
push ebp
push 0x41c4dd5
push dword fs:[edx]
mov dword fs:[edx], esp
mov ecx, dword [sym.imp.vcl60.bpl__Forms_Application]
mov ecx, dword [ecx]
mov dl, 1
mov eax, dword [sym.imp.adortl60.bpl__Adodb_TADOQuery_]
call sub.adortl60.bpl__Adodb_TADOQuery__bctr_qqrp18Classes_TComponent
mov ebx, eax
mov edx, dword [sym.imp.VEDatasets.bpl__Vedataset_defConnection]
mov edx, dword [edx]
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x268]
mov ecx, dword [sym.imp.vcl60.bpl__Forms_Application]
mov ecx, dword [ecx]
mov dl, 1
mov eax, dword [sym.imp.adortl60.bpl__Adodb_TADOQuery_]
call sub.adortl60.bpl__Adodb_TADOQuery__bctr_qqrp18Classes_TComponent
mov dword [ebp - 0x14], eax
mov eax, dword [ebp - 0x14]
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov edx, dword [sym.imp.VEDatasets.bpl__Vedataset_defConnection]
mov edx, dword [edx]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x268]
mov eax, dword [ebp - 0x14]
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x41c4e54
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Open_qqrv
mov edx, 0x41c4eb4
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x50]
call sub.rtl60.bpl__System__TRUNC_qqrv
mov dword [ebp - 0x68], eax
mov dword [ebp - 0x64], edx
fild qword [ebp - 0x68]
fstp qword [ebp - 0x48]
wait
mov edx, 0x41c4ec4
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
test eax, eax
jle 0x41c4134
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x41c4ed4
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, dword [ebp - 0x14]
call sub.adortl60.bpl__Adodb_TADOQuery_ExecSQL_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x41c4f08
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Open_qqrv
mov edx, 0x41c4ec4
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
test eax, eax
jne 0x41c4186
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x41c4f58
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, dword [ebp - 0x14]
call sub.adortl60.bpl__Adodb_TADOQuery_ExecSQL_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x41c5068
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Open_qqrv
mov edx, 0x41c4ec4
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
test eax, eax
jne 0x41c41d8
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x41c50b8
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, dword [ebp - 0x14]
call sub.adortl60.bpl__Adodb_TADOQuery_ExecSQL_qqrv
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x41c51ec
push dword [ebp - 8]
push 0x41c523c
lea eax, [ebp - 0x6c]
mov edx, 3
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x6c]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Open_qqrv
lea eax, [ebp - 0x20]
push eax
lea edx, [ebp - 0x18]
lea eax, [ebp - 0x1c]
xor ecx, ecx
call fcn.041c06a8
mov eax, dword [ebp - 0x20]
mov edx, 0x41c5248
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41c42a7
mov eax, ebx
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x41c5254
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, ebx
call sub.dbrtl60.bpl__Db_TDataSet_Open_qqrv
lea eax, [ebp - 0x24]
call fcn.041c2f14
mov edx, 0x41c52b4
mov eax, ebx
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x70]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x70]
mov edx, dword [ebp - 0x24]
call sub.rtl60.bpl__System__LStrCmp_qqrv
je 0x41c4296
mov edx, 0x41c52c4
mov eax, ebx
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x74]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x74]
mov edx, dword [ebp - 0x24]
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41c42a7
lea eax, [ebp - 0x20]
push eax
lea edx, [ebp - 0x18]
lea eax, [ebp - 0x1c]
xor ecx, ecx
call fcn.041c3274
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x14c]
test eax, eax
jne 0x41c42d9
mov eax, dword [ebp - 0x20]
mov edx, 0x41c5248
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41c42cf
mov esi, 1
jmp 0x41c448c
mov esi, 3
jmp 0x41c448c
mov edx, 0x41c52d8
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x28]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x28]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
cmp eax, 0xa
jle 0x41c4471
mov edx, 0x41c52e8
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x7c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov edx, dword [ebp - 0x7c]
lea ecx, [ebp - 0x78]
mov eax, dword [ebp - 0x28]
call fcn.041c0548
mov edx, dword [ebp - 0x78]
lea eax, [ebp - 0x28]
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
lea eax, [ebp - 0x54]
push eax
lea eax, [ebp - 0x58]
push eax
push 0x41d6204
mov eax, 0x41d61f0
call sub.rtl60.bpl__System__LStrClr_qqrpv
push eax
mov eax, 0x41d61f4
call sub.rtl60.bpl__System__LStrClr_qqrpv
push eax
push 0x41d61fc
lea ecx, [ebp - 0x50]
lea edx, [ebp - 0x4c]
mov eax, dword [ebp - 0x28]
call fcn.041c2870
mov eax, dword [ebp - 0xc]
mov edx, dword [0x41d61f4]
call sub.rtl60.bpl__System__LStrAsg_qqrpvpxv
mov eax, dword [ebp + 0xc]
mov edx, dword [ebp - 0x4c]
mov dword [eax], edx
mov eax, dword [ebp - 0x20]
mov edx, 0x41c5248
call sub.rtl60.bpl__System__LStrCmp_qqrv
je 0x41c43fb
mov eax, dword [ebp - 0x18]
mov edx, dword [0x41d61f8]
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41c43a3
lea eax, [ebp - 0x20]
mov edx, dword [ebp - 0x18]
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp - 0x20]
mov edx, dword [0x41d61f8]
call sub.rtl60.bpl__System__LStrCmp_qqrv
je 0x41c43bd
mov esi, 5
jmp 0x41c448c
fld qword [0x41d61fc]
call sub.rtl60.bpl__System__TRUNC_qqrv
push edx
push eax
call sub.rtl60.bpl__Sysutils_Date_qqrv
call sub.rtl60.bpl__System__TRUNC_qqrv
cmp edx, dword [esp + 4]
jne 0x41c43e3
cmp eax, dword [esp]
pop edx
pop eax
jbe 0x41c43f1
jmp 0x41c43e7
pop edx
pop eax
jle 0x41c43f1
mov esi, 6
jmp 0x41c448c
mov esi, 9
jmp 0x41c448c
fld qword [0x41d61fc]
call sub.rtl60.bpl__System__TRUNC_qqrv
push edx
push eax
call sub.rtl60.bpl__Sysutils_Date_qqrv
call sub.rtl60.bpl__System__TRUNC_qqrv
cmp edx, dword [esp + 4]
jne 0x41c4421
cmp eax, dword [esp]
pop edx
pop eax
jbe 0x41c442c
jmp 0x41c4425
pop edx
pop eax
jle 0x41c442c
mov esi, 7
jmp 0x41c4431
mov esi, 0xa
fld qword [0x41d61fc]
call sub.rtl60.bpl__System__TRUNC_qqrv
push edx
push eax
call sub.rtl60.bpl__Sysutils_Date_qqrv
call sub.rtl60.bpl__System__TRUNC_qqrv
push edx
push eax
mov eax, dword [ebp - 0x58]
cdq
sub dword [esp], eax
sbb dword [esp + 4], edx
pop eax
pop edx
cmp edx, dword [esp + 4]
jne 0x41c4466
cmp eax, dword [esp]
pop edx
pop eax
jbe 0x41c448c
jmp 0x41c446a
pop edx
pop eax
jle 0x41c448c
mov esi, 8
jmp 0x41c448c
mov eax, dword [ebp - 0x20]
mov edx, 0x41c5248
call sub.rtl60.bpl__System__LStrCmp_qqrv
jne 0x41c4487
mov esi, 2
jmp 0x41c448c
mov esi, 4
lea eax, [ebp - 0x24]
call fcn.041c2f14
lea edx, [ebp - 0x80]
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 - 0x80]
lea edx, [ebp - 0x38]
call sub.rtl60.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x38]
mov edx, dword [ebp - 4]
call sub.rtl60.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x38]
call sub.rtl60.bpl__Sysutils_FileExists_qqrx17System_AnsiString
test al, al
je 0x41c44d3
mov eax, dword [ebp - 0x38]
call fcn.041c39b8
fstp qword [ebp - 0x40]
wait
jmp 0x41c44e2
push 0
push 0
push 0
call sub.rtl60.bpl__Sysutils_FloatToDateTime_qqrxg
fstp qword [ebp - 0x40]
wait
call sub.rtl60.bpl__Sysutils_Date_qqrv
mov eax, dword [0x41d50b4]
fcomp qword [eax]
fnstsw ax
sahf
jbe 0x41c44fd
cmp esi, 9
jne 0x41c44fd
mov esi, 6
mov eax, esi
cmp eax, 0xa
ja case.0x41c4508.0
jmp dword [eax*4 + 0x41c450f]
lea eax, [ebp - 0x34]
mov edx, 0x41c52fc
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
jmp case.0x41c4508.0
lea eax, [ebp - 0x34]
mov edx, 0x41c5330
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
jmp case.0x41c4508.0
lea eax, [ebp - 0x34]
mov edx, 0x41c5364
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
jmp case.0x41c4508.0
lea eax, [ebp - 0x34]
mov edx, 0x41c5398
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
jmp case.0x41c4508.0
lea eax, [ebp - 0x34]
mov edx, 0x41c53cc
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
jmp case.0x41c4508.0
lea eax, [ebp - 0x34]
mov edx, 0x41c53ec
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
jmp case.0x41c4508.0
lea eax, [ebp - 0x34]
mov edx, 0x41c5408
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
jmp case.0x41c4508.0
lea eax, [ebp - 0x34]
mov edx, 0x41c5434
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
jmp case.0x41c4508.0
lea eax, [ebp - 0x34]
mov edx, 0x41c5460
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
jmp case.0x41c4508.0
lea eax, [ebp - 0x34]
mov edx, 0x41c5488
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
mov eax, ebx
call sub.dbrtl60.bpl__Db_TDataSet_Close_qqrv
mov eax, ebx
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x41c54c4
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, ebx
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
lea edx, [ebp - 0x88]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
push dword [ebp - 0x88]
push 0x41c5528
call sub.rtl60.bpl__Sysutils_Date_qqrv
fstp qword [ebp - 0x68]
wait
call sub.rtl60.bpl__Sysutils_Time_qqrv
fadd qword [ebp - 0x68]
add esp, 0xfffffff8
fstp qword [esp]
wait
lea eax, [ebp - 0x90]
call sub.rtl60.bpl__Sysutils_DateTimeToStr_qqrx16System_TDateTime
mov eax, dword [ebp - 0x90]
lea edx, [ebp - 0x8c]
call sub.rtl60.bpl__Sysutils_QuotedStr_qqrx17System_AnsiString
push dword [ebp - 0x8c]
push 0x41c5544
lea eax, [ebp - 0x84]
mov edx, 4
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x84]
push eax
mov eax, ebx
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, ebx
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
lea edx, [ebp - 0x98]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
push dword [ebp - 0x98]
push 0x41c5554
lea edx, [ebp - 0x9c]
mov eax, dword [ebp - 0x24]
call sub.rtl60.bpl__Sysutils_QuotedStr_qqrx17System_AnsiString
push dword [ebp - 0x9c]
lea eax, [ebp - 0x94]
mov edx, 3
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x94]
push eax
mov eax, ebx
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, ebx
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
lea edx, [ebp - 0xa4]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
push dword [ebp - 0xa4]
push 0x41c5560
push dword [ebp - 0x3c]
push dword [ebp - 0x40]
lea eax, [ebp - 0xac]
call sub.rtl60.bpl__Sysutils_DateTimeToStr_qqrx16System_TDateTime
mov eax, dword [ebp - 0xac]
lea edx, [ebp - 0xa8]
call sub.rtl60.bpl__Sysutils_QuotedStr_qqrx17System_AnsiString
push dword [ebp - 0xa8]
push 0x41c5544
lea eax, [ebp - 0xa0]
mov edx, 4
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0xa0]
push eax
mov eax, ebx
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, ebx
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
lea edx, [ebp - 0xb4]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
push dword [ebp - 0xb4]
push 0x41c5554
lea eax, [ebp - 0xbc]
mov ecx, dword [ebp - 0x34]
mov edx, dword [ebp - 4]
call sub.rtl60.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 0xbc]
lea edx, [ebp - 0xb8]
call sub.rtl60.bpl__Sysutils_QuotedStr_qqrx17System_AnsiString
push dword [ebp - 0xb8]
lea eax, [ebp - 0xb0]
mov edx, 3
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0xb0]
push eax
mov eax, ebx
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, ebx
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
lea edx, [ebp - 0xc4]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
push dword [ebp - 0xc4]
push 0x41c5554
lea edx, [ebp - 0xc8]
mov eax, dword [ebp - 0x1c]
call sub.rtl60.bpl__Sysutils_QuotedStr_qqrx17System_AnsiString
push dword [ebp - 0xc8]
push 0x41c523c
lea eax, [ebp - 0xc0]
mov edx, 4
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0xc0]
push eax
mov eax, ebx
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, ebx
call sub.adortl60.bpl__Adodb_TADOQuery_ExecSQL_qqrv
mov eax, esi
dec eax
sub eax, 4
jb 0x41c480d
sub eax, 3
je 0x41c48ea
jmp 0x41c4920
mov eax, esi
dec eax
sub eax, 2
jae 0x41c483c
mov eax, 0x41c557c
call sub.vcl60.bpl__Dialogs_ShowMessage_qqrx17System_AnsiString
mov byte [ebp - 0xd], 0
mov eax, dword [sym.imp.vcl60.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl60.bpl__Forms_TApplication_Terminate_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41c4df3
mov eax, 0x41c55d0
call sub.vcl60.bpl__Dialogs_ShowMessage_qqrx17System_AnsiString
cmp esi, 3
je 0x41c4853
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Delete_qqrv
lea ecx, [ebp - 0x60]
mov edx, dword [ebp - 0x20]
mov eax, dword [ebp - 8]
call fcn.041c3bfc
cmp dword [ebp - 0x60], 0
je 0x41c48bc
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Insert_qqrv
mov edx, 0x41c52e8
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [ebp - 0x60]
mov ecx, dword [eax]
call dword [ecx + 0xb0]
mov edx, 0x41c55ec
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [ebp - 0x5c]
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x248]
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Open_qqrv
jmp 0x41c4920
mov byte [ebp - 0xd], 0
mov eax, dword [0x41d620c]
mov edx, 0x41c55fc
call sub.rtl60.bpl__System__LStrCmp_qqrv
je 0x41c48dd
mov eax, dword [sym.imp.vcl60.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl60.bpl__Forms_TApplication_Terminate_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41c4df3
mov eax, 0x41c557c
call sub.vcl60.bpl__Dialogs_ShowMessage_qqrx17System_AnsiString
xor eax, eax
mov dword [ebp - 0x50], eax
mov eax, 0x41d61f4
call sub.rtl60.bpl__System__LStrClr_qqrpv
mov byte [ebp - 0xd], 0
mov eax, dword [sym.imp.vcl60.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl60.bpl__Forms_TApplication_Terminate_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41c4df3
mov eax, esi
add eax, 0xfffffffd
sub eax, 4
jae 0x41c4b75
xor edx, edx
push ebp
push 0x41c4b39
push dword fs:[edx]
mov dword fs:[edx], esp
push 0x41c5608
mov edx, 0x41c52e8
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xd0]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0xd0]
push 0x41c5658
push dword [ebp - 0x20]
push 0x41c5670
mov edx, 0x41c55ec
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xd4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0xd4]
lea eax, [ebp - 0xcc]
mov edx, 6
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0xcc]
lea edx, [ebp - 0x2c]
call fcn.041c3ab4
xor edx, edx
push ebp
push 0x41c4b11
push dword fs:[edx]
mov dword fs:[edx], esp
mov edx, dword [ebp - 0x2c]
mov eax, 0x41c56a8
call sub.rtl60.bpl__System__LStrPos_qqrv
mov ebx, eax
cmp ebx, 1
jge 0x41c4a02
mov eax, dword [ebp - 0x2c]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
cmp eax, 0xa
jle 0x41c4a02
mov eax, 0x41c56c0
call sub.vcl60.bpl__Dialogs_ShowMessage_qqrx17System_AnsiString
mov byte [ebp - 0xd], 0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41c4df3
mov eax, dword [ebp - 0x2c]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
mov esi, eax
lea eax, [ebx + 0x12]
sub esi, eax
lea eax, [ebp - 0x2c]
push eax
lea edx, [ebx + 0xf]
mov ecx, esi
mov eax, dword [ebp - 0x2c]
call sub.rtl60.bpl__System__LStrCopy_qqrv
xor eax, eax
push ebp
push 0x41c4a63
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, 0x41c52e8
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xd8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov edx, dword [ebp - 0xd8]
lea ecx, [ebp - 0x30]
mov eax, dword [ebp - 0x2c]
call fcn.041c0548
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41c4a6d
mov eax, dword [ebp - 0x2c]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
cmp eax, 5
jle 0x41c4ab8
mov edx, dword [ebp - 0x30]
mov eax, 0x41c56e0
call sub.rtl60.bpl__System__LStrPos_qqrv
test eax, eax
jle 0x41c4ab8
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Edit_qqrv
mov edx, 0x41c52d8
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [ebp - 0x2c]
mov ecx, dword [eax]
call dword [ecx + 0xb0]
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x248]
jmp 0x41c4acd
mov edx, 0x41c52d8
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov edx, 0x41c52e8
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xe0]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov edx, dword [ebp - 0xe0]
lea ecx, [ebp - 0xdc]
mov eax, dword [ebp - 0x2c]
call fcn.041c0548
mov edx, dword [ebp - 0xdc]
lea eax, [ebp - 0x2c]
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41c4b2f
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41c4b8f
cmp esi, 8
je 0x41c4b87
lea eax, [ebp - 0x2c]
mov edx, dword [ebp - 0x28]
call sub.rtl60.bpl__System__LStrLAsg_qqrpvpxv
jmp 0x41c4b8f
lea eax, [ebp - 0x2c]
call sub.rtl60.bpl__System__LStrClr_qqrpv
mov edx, 0x41c55ec
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
test eax, eax
jne 0x41c4bad
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Delete_qqrv
mov eax, dword [ebp - 0x2c]
call sub.rtl60.bpl__System__LStrLen_qqrx17System_AnsiString
cmp eax, 0xa
jge 0x41c4bd3
mov eax, dword [sym.imp.vcl60.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl60.bpl__Forms_TApplication_Terminate_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41c4df3
lea eax, [ebp - 0x54]
push eax
lea eax, [ebp - 0x58]
push eax
push 0x41d6204
mov eax, 0x41d61f0
call sub.rtl60.bpl__System__LStrClr_qqrpv
push eax
mov eax, 0x41d61f4
call sub.rtl60.bpl__System__LStrClr_qqrpv
push eax
push 0x41d61fc
lea ecx, [ebp - 0x50]
lea edx, [ebp - 0x4c]
mov eax, dword [ebp - 0x2c]
call fcn.041c2870
mov eax, dword [ebp - 0xc]
mov edx, dword [0x41d61f4]
call sub.rtl60.bpl__System__LStrAsg_qqrpvpxv
mov eax, dword [ebp + 0xc]
mov edx, dword [ebp - 0x4c]
mov dword [eax], edx
cmp dword [ebp - 0x54], 3
je 0x41c4c2b
cmp dword [ebp - 0x54], 0
jne 0x41c4c8b
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Close_qqrv
lea edx, [ebp - 0xec]
mov eax, dword [ebp - 0x4c]
call sub.rtl60.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0xec]
lea eax, [ebp - 0xe8]
mov edx, 0x41c5724
call sub.rtl60.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 0xe8]
push eax
mov eax, dword [ebp - 0x14]
call sub.adortl60.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x14c]
test eax, eax
jle 0x41c4c8b
mov eax, dword [ebp - 0x14]
call sub.dbrtl60.bpl__Db_TDataSet_Delete_qqrv
fild dword [ebp - 0x58]
fadd qword [0x41d61fc]
fld qword [ebp - 0x48]
fadd dword [0x41c5754]
fcompp
fnstsw ax
sahf
jbe 0x41c4d08
fild dword [ebp - 0x58]
fadd qword [0x41d61fc]
fcomp qword [ebp - 0x48]
fnstsw ax
sahf
jb 0x41c4d08
push 0x41c5760
fild dword [ebp - 0x58]
fadd qword [0x41d61fc]
fsub qword [ebp - 0x48]
call sub.rtl60.bpl__System__TRUNC_qqrv
push edx
push eax
lea eax, [ebp - 0xf4]
call sub.rtl60.bpl__Sysutils_IntToStr_qqrj
push dword [ebp - 0xf4]
push 0x41c5784
push 0x41c579c
push 0x41c57a8
lea eax, [ebp - 0xf0]
mov edx, 5
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0xf0]
call sub.vcl60.bpl__Dialogs_ShowMessage_qqrx17System_AnsiString
fild dword [ebp - 0x58]
fadd qword [0x41d61fc]
fcomp qword [ebp - 0x48]
fnstsw ax
sahf
jae 0x41c4d34
mov eax, 0x41c57d8
call sub.vcl60.bpl__Dialogs_ShowMessage_qqrx17System_AnsiString
mov byte [ebp - 0xd], 0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41c4df3
mov eax, dword [ebp + 8]
mov edx, dword [ebp - 0x50]
mov dword [eax], edx
call fcn.041928ac
mov eax, dword [0x41d50b4]
fcomp qword [eax]
fnstsw ax
sahf
jbe 0x41c4dc7
push 0x41c5820
mov eax, dword [0x41d50b4]
push dword [eax + 4]
push dword [eax]
lea edx, [ebp - 0xfc]
mov eax, 0x41c5870
call sub.rtl60.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
push dword [ebp - 0xfc]
push 0x41c579c
push 0x41c5884
call fcn.041928ac
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x100]
mov eax, 0x41c5870
call sub.rtl60.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
push dword [ebp - 0x100]
lea eax, [ebp - 0xf8]
mov edx, 5
call sub.rtl60.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0xf8]
call sub.vcl60.bpl__Dialogs_ShowMessage_qqrx17System_AnsiString
mov byte [ebp - 0xd], 0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41c4df3
mov byte [ebp - 0xd], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41c4df3
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x41c4e40
lea eax, [ebp - 0x100]
mov edx, 0x26
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x60]
mov edx, dword [0x41c0314]
call sub.rtl60.bpl__System__FinalizeRecord_qqrpvt1
lea eax, [ebp - 0x38]
mov edx, 9
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl60.bpl__System__LStrArrayClr_qqrpvi
ret