Function at 0x41b408
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0x3e
push 0
push 0
dec ecx
jne 0x41b411
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 - 8]
call sub.Vcl50.bpl__System__LStrAddRef_qqrv
mov eax, dword [ebp - 0xc]
call sub.Vcl50.bpl__System__LStrAddRef_qqrv
xor eax, eax
push ebp
push 0x41c437
push dword fs:[eax]
mov dword fs:[eax], esp
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.imp.dsado_d5.bpl__Dsadodb_TDsADOQuery_]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery__bctr_qqrp18Classes_TComponent
mov dword [ebp - 0x1c], eax
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.imp.dsado_d5.bpl__Dsadodb_TDsADOQuery_]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery__bctr_qqrp18Classes_TComponent
mov dword [ebp - 0x20], eax
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.imp.dsado_d5.bpl__Dsadodb_TDsADOQuery_]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery__bctr_qqrp18Classes_TComponent
mov dword [ebp - 0x24], eax
xor eax, eax
push ebp
push 0x41c2d1
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0x14]
mov edx, 0x41c454
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x70]
mov eax, dword [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0x260]
mov eax, dword [ebp - 0x1c]
call sub.vclado50.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x40]
push 1
lea eax, [ebp - 0x54]
push eax
lea edx, [ebp - 0x58]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa4]
call fcn.00415318
mov ecx, dword [ebp - 0x58]
mov edx, 0x41c510
mov eax, dword [ebp - 0x14]
call fcn.004036b0
mov edx, dword [ebp - 0x54]
lea eax, [ebp - 0x14]
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
mov eax, dword [ebp - 0x1c]
call sub.vclado50.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x34]
lea edx, [ebp - 0x5c]
mov eax, dword [ebp - 8]
call sub.Vcl50.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
mov eax, dword [ebp - 0x5c]
push eax
mov edx, 0x41c51c
mov eax, dword [ebp - 0x1c]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery_ParamByName_qqrx17System_AnsiString
pop edx
call sub.dsado_d5.bpl__Dsadodb_TParam_SetAsString_qqrx17System_AnsiString
mov edx, 0x41c52c
mov eax, dword [ebp - 0x1c]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery_ParamByName_qqrx17System_AnsiString
mov edx, dword [ebp - 0xc]
call sub.dsado_d5.bpl__Dsadodb_TParam_SetAsString_qqrx17System_AnsiString
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_First_qqrv
jmp 0x41c29b
mov edx, 0x41c53c
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x64]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov eax, dword [ebp - 0x64]
lea edx, [ebp - 0x60]
call sub.Vcl50.bpl__Sysutils_Trim_qqrx17System_AnsiString
cmp dword [ebp - 0x60], 0
jne 0x41b57a
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_Next_qqrv
jmp 0x41c29b
lea eax, [ebp - 0x50]
push eax
xor eax, eax
mov dword [ebp - 0x6c], eax
mov dword [ebp - 0x68], 2
lea eax, [ebp - 0x6c]
mov ecx, 0xc
mov edx, 1
call sub.Vcl50.bpl__System_VarArrayCreate_qqrpxixii
lea edx, [ebp - 0x70]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xc0]
call sub.Vcl50.bpl__Sysutils_Trim_qqrx17System_AnsiString
cmp dword [ebp - 0x70], 0
jne 0x41b685
push 0
push 1
lea eax, [ebp - 0x80]
push eax
push 0x41c54c
mov edx, 0x41c558
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x98]
mov ecx, dword [eax]
call dword [ecx + 0x58]
push dword [ebp - 0x98]
push 0x41c568
lea eax, [ebp - 0x94]
mov edx, 3
call sub.Vcl50.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x94]
lea eax, [ebp - 0x90]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x90]
push eax
mov edx, 0x41c558
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xa0]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov eax, dword [ebp - 0xa0]
lea edx, [ebp - 0x9c]
call sub.Vcl50.bpl__Sysutils_Trim_qqrx17System_AnsiString
cmp dword [ebp - 0x9c], 0
sete al
push eax
mov al, 0x20
mov byte [ebp - 0xb3], al
mov byte [ebp - 0xb4], 1
lea eax, [ebp - 0xb0]
lea edx, [ebp - 0xb4]
call sub.Vcl50.bpl__System__VarFromPStr_qqrr14System_Variantrx28System__SmallString_iuc_255_
lea edx, [ebp - 0xb0]
pop eax
pop ecx
call fcn.00403620
lea eax, [ebp - 0x80]
push eax
lea eax, [ebp - 0x50]
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x10
jmp 0x41b780
push 0
push 1
lea eax, [ebp - 0xc4]
push eax
push 0x41c54c
mov edx, 0x41c558
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xdc]
mov ecx, dword [eax]
call dword [ecx + 0x58]
push dword [ebp - 0xdc]
push 0x41c568
push 0x41c574
lea eax, [ebp - 0xd8]
mov edx, 4
call sub.Vcl50.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0xd8]
lea eax, [ebp - 0xd4]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0xd4]
push eax
mov edx, 0x41c558
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xe4]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov eax, dword [ebp - 0xe4]
lea edx, [ebp - 0xe0]
call sub.Vcl50.bpl__Sysutils_Trim_qqrx17System_AnsiString
cmp dword [ebp - 0xe0], 0
sete al
push eax
mov al, 0x20
mov byte [ebp - 0xb3], al
mov byte [ebp - 0xb4], 1
lea eax, [ebp - 0xf4]
lea edx, [ebp - 0xb4]
call sub.Vcl50.bpl__System__VarFromPStr_qqrr14System_Variantrx28System__SmallString_iuc_255_
lea edx, [ebp - 0xf4]
pop eax
pop ecx
call fcn.00403620
lea eax, [ebp - 0xc4]
push eax
lea eax, [ebp - 0x104]
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0xc0]
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea edx, [ebp - 0x104]
pop eax
call sub.Vcl50.bpl__System__VarAdd_qqrv
lea eax, [ebp - 0xc4]
push eax
lea eax, [ebp - 0x50]
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x10
push 1
push 1
lea eax, [ebp - 0x114]
xor edx, edx
call sub.Vcl50.bpl__System__VarFromLStr_qqrr14System_Variantx17System_AnsiString
lea eax, [ebp - 0x114]
push eax
lea eax, [ebp - 0x50]
push eax
call sub.Vcl50.bpl__System__VarArrayPut_qr14System_Variantrx14System_Variantii
add esp, 0x10
lea eax, [ebp - 0x18]
push eax
lea ecx, [ebp - 0x118]
mov eax, dword [ebp - 4]
mov ebx, dword [eax + 0xa4]
mov eax, ebx
mov edx, 1
call fcn.00410574
mov ecx, dword [ebp - 0x118]
mov eax, ebx
lea edx, [ebp - 0x50]
mov ebx, dword [eax]
call dword [ebx + 0x40]
mov eax, dword [ebp - 0x20]
call sub.Vcldb50.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x70]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x260]
mov eax, dword [ebp - 0x20]
call sub.vclado50.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x40]
push 1
lea eax, [ebp - 0x11c]
push eax
lea edx, [ebp - 0x120]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa4]
call fcn.00415318
mov ecx, dword [ebp - 0x120]
mov edx, 0x41c510
mov eax, dword [ebp - 0x18]
call fcn.004036b0
mov edx, dword [ebp - 0x11c]
lea eax, [ebp - 0x18]
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
mov eax, dword [ebp - 0x20]
call sub.vclado50.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov eax, dword [ebp - 0x20]
call sub.Vcldb50.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x20]
cmp byte [eax + 0x91], 0
je 0x41b874
mov eax, dword [ebp - 0x20]
cmp byte [eax + 0x90], 0
je 0x41b874
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_Next_qqrv
jmp 0x41c29b
lea eax, [ebp - 0x124]
push eax
mov edx, 0x41c53c
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x128]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov eax, dword [ebp - 0x128]
mov ecx, 1
mov edx, 0x41c584
call fcn.00403420
mov eax, dword [ebp - 0x124]
lea edx, [ebp - 0x28]
call fcn.00417b4c
cmp dword [ebp - 0x28], 0
je 0x41b9a8
lea eax, [ebp - 0x12c]
call sub.Vcl50.bpl__System__IntfClear_qqrr35System__DelphiInterface_t8IUnknown_
push eax
mov eax, dword [ebp - 0x28]
push eax
mov eax, dword [eax]
call dword [eax + 0xb4]
call sub.Vcl50.bpl__System__CheckAutoResult_qqrv
cmp dword [ebp - 0x12c], 0
je 0x41b9a8
lea eax, [ebp - 0x3c]
call sub.Vcl50.bpl__System__IntfClear_qqrr35System__DelphiInterface_t8IUnknown_
push eax
mov eax, dword [ebp - 0x28]
push eax
mov eax, dword [eax]
call dword [eax + 0xb4]
call sub.Vcl50.bpl__System__CheckAutoResult_qqrv
lea eax, [ebp - 0x130]
call sub.Vcl50.bpl__System__IntfClear_qqrr35System__DelphiInterface_t8IUnknown_
push eax
push 0x41c58c
lea eax, [ebp - 0x134]
call sub.Vcl50.bpl__System__IntfClear_qqrr35System__DelphiInterface_t8IUnknown_
push eax
mov eax, dword [ebp - 0x3c]
push eax
mov eax, dword [eax]
call dword [eax + 0x44]
call sub.Vcl50.bpl__System__CheckAutoResult_qqrv
mov eax, dword [ebp - 0x134]
push eax
mov eax, dword [eax]
call dword [eax + 0x1c]
call sub.Vcl50.bpl__System__CheckAutoResult_qqrv
cmp dword [ebp - 0x130], 0
je 0x41b9a8
lea ecx, [ebp - 0x138]
mov edx, 0x41c5a4
mov eax, dword [ebp - 0x3c]
call fcn.00417cec
mov eax, dword [ebp - 0x138]
mov edx, 0x41c5b4
call sub.Vcl50.bpl__System__LStrCmp_qqrv
jne 0x41b9a8
mov edx, 0x41c53c
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x13c]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov eax, dword [ebp - 0x13c]
push eax
mov ecx, dword [ebp - 0xc]
mov edx, dword [ebp - 8]
mov eax, dword [ebp - 4]
call fcn.0041d2cc
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_Next_qqrv
jmp 0x41c29b
lea eax, [ebp - 0x14]
mov edx, 0x41c5c0
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
mov eax, dword [ebp - 0x20]
call sub.Vcldb50.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x70]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x260]
mov eax, dword [ebp - 0x20]
call sub.vclado50.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x40]
push 1
lea eax, [ebp - 0x140]
push eax
lea edx, [ebp - 0x144]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa4]
call fcn.00415318
mov ecx, dword [ebp - 0x144]
mov edx, 0x41c510
mov eax, dword [ebp - 0x14]
call fcn.004036b0
mov edx, dword [ebp - 0x140]
lea eax, [ebp - 0x14]
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
mov eax, dword [ebp - 0x20]
call sub.vclado50.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov eax, dword [ebp - 0x20]
call sub.Vcldb50.bpl__Db_TDataSet_Open_qqrv
mov edx, 0x41c5e4
mov eax, dword [ebp - 0x20]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x4c]
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x2c]
mov eax, 0x41c5f4
call sub.Vcl50.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
lea eax, [ebp - 0x30]
push eax
mov ecx, 8
mov edx, 1
mov eax, dword [ebp - 0x2c]
call sub.Vcl50.bpl__System__LStrCopy_qqrv
lea eax, [ebp - 0x148]
push eax
mov edx, 0x41c53c
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x14c]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov eax, dword [ebp - 0x14c]
mov ecx, 1
mov edx, 0x41c584
call fcn.00403420
mov eax, dword [ebp - 0x148]
lea edx, [ebp - 0x28]
call fcn.00417b4c
lea eax, [ebp - 0x14]
mov edx, 0x41c610
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
mov eax, dword [ebp - 0x24]
call sub.Vcldb50.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x70]
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x260]
mov eax, dword [ebp - 0x24]
call sub.vclado50.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x40]
mov eax, dword [ebp - 0x24]
call sub.vclado50.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x34]
push 0x41c70c
push dword [ebp - 0x30]
push 0x41c748
push 0x41c758
push 0x41c764
push 0x41c7ac
push 0x41c7bc
push dword [ebp - 0x30]
push 0x41c7fc
push 0x41c808
push 0x41c818
push dword [ebp - 0x30]
push 0x41c858
lea eax, [ebp - 0x14]
mov edx, 0xd
call sub.Vcl50.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x20]
call sub.Vcldb50.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x70]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x260]
mov eax, dword [ebp - 0x20]
call sub.vclado50.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x40]
mov eax, dword [ebp - 0x20]
call sub.vclado50.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov eax, dword [ebp - 0x20]
call sub.Vcldb50.bpl__Db_TDataSet_Open_qqrv
mov edx, 0x41c870
mov eax, dword [ebp - 0x20]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x150]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov eax, dword [ebp - 0x150]
push eax
mov edx, 0x41c880
mov eax, dword [ebp - 0x24]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery_ParamByName_qqrx17System_AnsiString
pop edx
call sub.dsado_d5.bpl__Dsadodb_TParam_SetAsString_qqrx17System_AnsiString
lea edx, [ebp - 0x154]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa4]
call fcn.004153e0
mov eax, dword [ebp - 0x154]
push eax
mov edx, 0x41c890
mov eax, dword [ebp - 0x24]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery_ParamByName_qqrx17System_AnsiString
pop edx
call sub.dsado_d5.bpl__Dsadodb_TParam_SetAsString_qqrx17System_AnsiString
push 1
lea eax, [ebp - 0x15c]
push eax
lea eax, [ebp - 0x164]
call sub.Vcl50.bpl__System__WStrClr_qqrr17System_WideString
push eax
lea eax, [ebp - 0x168]
call sub.Vcl50.bpl__System__IntfClear_qqrr35System__DelphiInterface_t8IUnknown_
push eax
push 0x41c89c
mov eax, dword [ebp - 0x28]
push eax
mov eax, dword [eax]
call dword [eax + 0x94]
call sub.Vcl50.bpl__System__CheckAutoResult_qqrv
mov eax, dword [ebp - 0x168]
push eax
mov eax, dword [eax]
call dword [eax + 0x88]
call sub.Vcl50.bpl__System__CheckAutoResult_qqrv
mov edx, dword [ebp - 0x164]
lea eax, [ebp - 0x160]
call sub.Vcl50.bpl__System__LStrFromWStr_qqrr17System_AnsiStringx17System_WideString
mov eax, dword [ebp - 0x160]
mov ecx, 0x41c8c8
mov edx, 0x41c8d8
call fcn.004036b0
mov ecx, dword [ebp - 0x15c]
lea eax, [ebp - 0x158]
mov edx, 0x41c8ec
call sub.Vcl50.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 0x158]
push eax
mov edx, 0x41c91c
mov eax, dword [ebp - 0x24]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery_ParamByName_qqrx17System_AnsiString
pop edx
call sub.dsado_d5.bpl__Dsadodb_TParam_SetAsString_qqrx17System_AnsiString
mov edx, 0x41c92c
mov eax, dword [ebp - 0x24]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery_ParamByName_qqrx17System_AnsiString
mov edx, dword [ebp - 0x2c]
call sub.dsado_d5.bpl__Dsadodb_TParam_SetAsString_qqrx17System_AnsiString
mov edx, 0x41c93c
mov eax, dword [ebp - 0x24]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery_ParamByName_qqrx17System_AnsiString
mov edx, 0x41c94c
call sub.dsado_d5.bpl__Dsadodb_TParam_SetAsString_qqrx17System_AnsiString
lea eax, [ebp - 0x170]
call sub.Vcl50.bpl__System__WStrClr_qqrr17System_WideString
push eax
lea eax, [ebp - 0x174]
call sub.Vcl50.bpl__System__IntfClear_qqrr35System__DelphiInterface_t8IUnknown_
push eax
push 0x41c954
mov eax, dword [ebp - 0x28]
push eax
mov eax, dword [eax]
call dword [eax + 0x94]
call sub.Vcl50.bpl__System__CheckAutoResult_qqrv
mov eax, dword [ebp - 0x174]
push eax
mov eax, dword [eax]
call dword [eax + 0x68]
call sub.Vcl50.bpl__System__CheckAutoResult_qqrv
mov edx, dword [ebp - 0x170]
lea eax, [ebp - 0x16c]
call sub.Vcl50.bpl__System__LStrFromWStr_qqrr17System_AnsiStringx17System_WideString
mov eax, dword [ebp - 0x16c]
push eax
mov edx, 0x41c988
mov eax, dword [ebp - 0x24]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery_ParamByName_qqrx17System_AnsiString
pop edx
call sub.dsado_d5.bpl__Dsadodb_TParam_SetAsString_qqrx17System_AnsiString
lea eax, [ebp - 0x38]
push eax
mov edx, 0x41c53c
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x178]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov eax, dword [ebp - 0x178]
mov ecx, 4
mov edx, 0x41c584
call fcn.00403420
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xc8]
mov edx, dword [eax]
call dword [edx + 0x14]
mov esi, eax
dec esi
test esi, esi
jl 0x41bdf9
inc esi
xor ebx, ebx
mov al, byte [0x41c990]
push eax
lea eax, [ebp - 0x17c]
push eax
lea eax, [ebp - 0x180]
push eax
lea ecx, [ebp - 0x184]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xc8]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x184]
mov ecx, 2
mov edx, 0x41c99c
call fcn.00403420
mov eax, dword [ebp - 0x180]
push eax
lea eax, [ebp - 0x188]
push eax
lea ecx, [ebp - 0x18c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xc8]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x18c]
mov ecx, 1
mov edx, 0x41c99c
call fcn.00403420
mov edx, dword [ebp - 0x188]
mov eax, dword [ebp - 0x38]
pop ecx
call sub.Vcl50.bpl__Sysutils_StringReplace_qqrx17System_AnsiStringt1t149System__Set_t21Sysutils_SysUtils__24_iuc_0_iuc_1_
mov edx, dword [ebp - 0x17c]
lea eax, [ebp - 0x38]
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
inc ebx
dec esi
jne 0x41bd5c
lea eax, [ebp - 0x190]
push eax
mov edx, 0x41c53c
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x194]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov eax, dword [ebp - 0x194]
mov ecx, 3
mov edx, 0x41c584
call fcn.00403420
mov edx, dword [ebp - 0x190]
lea eax, [ebp - 0x40]
mov ecx, dword [ebp - 0x38]
call sub.Vcl50.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 0x40]
call sub.Vcl50.bpl__System__LStrLen_qqrv
cmp eax, 0x60
jle 0x41be71
lea ecx, [ebp - 0x198]
lea eax, [ebp - 0x40]
mov edx, 0x60
call fcn.00403788
mov edx, dword [ebp - 0x198]
lea eax, [ebp - 0x40]
mov ecx, 0x41c9a8
call sub.Vcl50.bpl__System__LStrCat3_qqrv
mov al, byte [0x41c9ac]
push eax
lea eax, [ebp - 0x19c]
push eax
mov ecx, 0x41c9b8
mov edx, 0x41c9c4
mov eax, dword [ebp - 0x40]
call sub.Vcl50.bpl__Sysutils_StringReplace_qqrx17System_AnsiStringt1t149System__Set_t21Sysutils_SysUtils__24_iuc_0_iuc_1_
mov edx, dword [ebp - 0x19c]
lea eax, [ebp - 0x40]
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
mov edx, 0x41c9d0
mov eax, dword [ebp - 0x24]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery_ParamByName_qqrx17System_AnsiString
mov edx, dword [ebp - 0x40]
call sub.dsado_d5.bpl__Dsadodb_TParam_SetAsString_qqrx17System_AnsiString
lea eax, [ebp - 0x34]
push eax
mov edx, 0x41c53c
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1a0]
mov ecx, dword [eax]
call dword [ecx + 0x58]
mov eax, dword [ebp - 0x1a0]
mov ecx, 2
mov edx, 0x41c584
call fcn.00403420
lea edx, [ebp - 0x1a8]
mov eax, dword [ebp - 8]
call sub.Vcl50.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov eax, dword [ebp - 0x1a8]
lea edx, [ebp - 0x1a4]
call sub.Vcl50.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
lea eax, [ebp - 0x1a4]
mov edx, 0x41c9e0
call sub.Vcl50.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x1a4]
mov edx, dword [ebp - 0x34]
call sub.Vcl50.bpl__System__LStrPos_qqrv
test eax, eax
jle 0x41bfd1
mov al, byte [0x41c990]
push eax
lea eax, [ebp - 0x1ac]
push eax
lea edx, [ebp - 0x1b8]
mov eax, dword [ebp - 8]
call sub.Vcl50.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov eax, dword [ebp - 0x1b8]
lea edx, [ebp - 0x1b4]
call sub.Vcl50.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
push dword [ebp - 0x1b4]
push 0x41ca00
mov eax, dword [ebp - 4]
push dword [eax + 0xc0]
push 0x41ca10
lea eax, [ebp - 0x1b0]
mov edx, 4
call sub.Vcl50.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x1b0]
push eax
lea edx, [ebp - 0x1c0]
mov eax, dword [ebp - 8]
call sub.Vcl50.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov eax, dword [ebp - 0x1c0]
lea edx, [ebp - 0x1bc]
call sub.Vcl50.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
lea eax, [ebp - 0x1bc]
mov edx, 0x41c9e0
call sub.Vcl50.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x1bc]
mov eax, dword [ebp - 0x34]
pop ecx
call sub.Vcl50.bpl__Sysutils_StringReplace_qqrx17System_AnsiStringt1t149System__Set_t21Sysutils_SysUtils__24_iuc_0_iuc_1_
mov edx, dword [ebp - 0x1ac]
lea eax, [ebp - 0x34]
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
lea edx, [ebp - 0x1c8]
mov eax, dword [ebp - 8]
call sub.Vcl50.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov eax, dword [ebp - 0x1c8]
lea edx, [ebp - 0x1c4]
call sub.Vcl50.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
lea eax, [ebp - 0x1c4]
mov edx, 0x41ca1c
call sub.Vcl50.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x1c4]
mov edx, dword [ebp - 0x34]
call sub.Vcl50.bpl__System__LStrPos_qqrv
test eax, eax
jle 0x41c0be
mov al, byte [0x41c990]
push eax
lea eax, [ebp - 0x1cc]
push eax
lea edx, [ebp - 0x1d8]
mov eax, dword [ebp - 8]
call sub.Vcl50.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov eax, dword [ebp - 0x1d8]
lea edx, [ebp - 0x1d4]
call sub.Vcl50.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
push dword [ebp - 0x1d4]
push 0x41ca00
mov eax, dword [ebp - 4]
push dword [eax + 0xc0]
push 0x41ca10
lea eax, [ebp - 0x1d0]
mov edx, 4
call sub.Vcl50.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x1d0]
push eax
lea edx, [ebp - 0x1e0]
mov eax, dword [ebp - 8]
call sub.Vcl50.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov eax, dword [ebp - 0x1e0]
lea edx, [ebp - 0x1dc]
call sub.Vcl50.bpl__Sysutils_UpperCase_qqrx17System_AnsiString
lea eax, [ebp - 0x1dc]
mov edx, 0x41ca1c
call sub.Vcl50.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x1dc]
mov eax, dword [ebp - 0x34]
pop ecx
call sub.Vcl50.bpl__Sysutils_StringReplace_qqrx17System_AnsiStringt1t149System__Set_t21Sysutils_SysUtils__24_iuc_0_iuc_1_
mov edx, dword [ebp - 0x1cc]
lea eax, [ebp - 0x34]
call sub.Vcl50.bpl__System__LStrLAsg_qqrv
lea edx, [ebp - 0x1e4]
mov eax, dword [ebp - 0x34]
call sub.Vcl50.bpl__Sysutils_Trim_qqrx17System_AnsiString
lea eax, [ebp - 0x1e4]
push eax
lea edx, [ebp - 0x1e8]
mov eax, dword [ebp - 0x38]
call sub.Vcl50.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov edx, dword [ebp - 0x1e8]
pop eax
call sub.Vcl50.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x1e4]
push eax
mov edx, 0x41ca30
mov eax, dword [ebp - 0x24]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery_ParamByName_qqrx17System_AnsiString
pop edx
call sub.dsado_d5.bpl__Dsadodb_TParam_SetAsString_qqrx17System_AnsiString
mov edx, 0x41ca40
mov eax, dword [ebp - 0x24]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery_ParamByName_qqrx17System_AnsiString
mov edx, 0x41ca50
call sub.dsado_d5.bpl__Dsadodb_TParam_SetAsString_qqrx17System_AnsiString
lea edx, [ebp - 0x1ec]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa4]
call fcn.0041537c
mov eax, dword [ebp - 0x1ec]
push eax
mov edx, 0x41ca5c
mov eax, dword [ebp - 0x24]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery_ParamByName_qqrx17System_AnsiString
pop edx
call sub.dsado_d5.bpl__Dsadodb_TParam_SetAsString_qqrx17System_AnsiString
lea edx, [ebp - 0x1f0]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0xa4]
call fcn.004153e0
mov eax, dword [ebp - 0x1f0]
push eax
mov edx, 0x41ca6c
mov eax, dword [ebp - 0x24]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery_ParamByName_qqrx17System_AnsiString
pop edx
call sub.dsado_d5.bpl__Dsadodb_TParam_SetAsString_qqrx17System_AnsiString
mov edx, 0x41ca7c
mov eax, dword [ebp - 0x24]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery_ParamByName_qqrx17System_AnsiString
mov edx, dword [ebp - 0x2c]
call sub.dsado_d5.bpl__Dsadodb_TParam_SetAsString_qqrx17System_AnsiString
mov edx, 0x41ca90
mov eax, dword [ebp - 0x24]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery_ParamByName_qqrx17System_AnsiString
mov edx, 1
call sub.dsado_d5.bpl__Dsadodb_TParam_SetAsInteger_qqri
xor eax, eax
push ebp
push 0x41c1c9
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x24]
call sub.dsado_d5.bpl__Dsadodb_TDsADOQuery_ExecSQL_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x41c293
mov eax, dword [ebp - 0x1c]
call sub.Vcldb50.bpl__Db_TDataSet_Next_qqrv
mov eax, dword [ebp - 0x1c]
cmp byte [eax + 0x91], 0
je 0x41b547
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x41c2d8
mov eax, dword [ebp - 0x1c]
call sub.Vcl50.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x20]
call sub.Vcl50.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x24]
call sub.Vcl50.bpl__System_TObject_Free_qqrv
ret