Function at 0x4349e4
Capabilities:
Reference sql statements

Disassembly:
push cs
imul ebp, dword [ebp + 0x67], 0x6972575f
je 0x4349e9
inc ebx
insb byte es:[edi], dx
imul esp, dword [ebx + 0x6b], 0x5f46540f
dec edx
dec ebp
dec esi
outsd dx, dword [esi]
je 0x4349fc
arpl word [ebp + 0x4c], sp
imul esi, dword [ebx + 0x74], 0x697c0006
inc esp
add byte [eax + 0x4469], al
insb byte es:[edi], dx
inc esp
add byte [ecx + ebp*2 + 0x6e700044], dl
inc esp
add byte [esi + ebp*2 + 0x44], ch
add byte [eax + 0x4349b8], dl
pop es
andps xmm0, xmmword [esi + 0x5f]
dec edx
dec ebp
dec esi
outsd dx, dword [esi]
je 0x434a2c
arpl word [ebp + 0x4c], sp
imul esi, dword [ebx + 0x74], 0x4345f4
mov word [esp + eax*2], fs
pop esi
add byte [esi], cl
push ebp
pop edi
dec edx
dec ebp
dec esi
outsd dx, dword [esi]
je 0x434a45
arpl word [ebp + 0x4c], sp
imul esi, dword [ebx + 0x74], 0x8b550000
push ebp
mov ebp, esp
push ecx
mov ecx, 8
or byte [eax], al
add byte [eax], al
push 0
push 0
dec ecx
jne 0x4349ed
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov dword [ebp - 4], ecx
cld
mov esi, edx
mov ebx, eax
mov edi, dword [sym.imp.JMBase.bpl__U_jmdm_F_JMDM]
xor eax, eax
push ebp
push 0x434e05
push dword fs:[eax]
mov dword fs:[eax], esp
cmp dword [ebp - 4], 0
jne 0x434aa4
mov eax, dword [ebx + 0x30c]
mov eax, dword [eax + 0x208]
mov eax, dword [eax + 0x10]
mov dl, 2
call sub.vcl70.bpl__Graphics_TPen_SetStyle_qqr18Graphics_TPenStyle
mov ecx, 0x3c
xor edx, edx
mov eax, dword [ebx + 0x30c]
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov ecx, 0x16a
mov edx, 1
mov eax, dword [ebx + 0x30c]
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov ecx, 0x58
mov edx, 2
mov eax, dword [ebx + 0x30c]
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov ecx, 0x58
pop eax
add byte [eax], al
add byte [edx + 3], bh
inc eax
adc byte [edx - 0x30e817fe], dh
cld
invalid
cld
invalid
mov eax, dword [ebx + 0x30c]
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
xor edx, edx
mov eax, dword [ebx + 0x340]
mov ecx, dword [eax]
call dword [ecx + 0xd0]
mov eax, dword [ebx + 0x344]
mov edx, dword [eax]
call dword [edx + 0xe0]
cmp dword [ebp - 4], 0
je 0x434ab0
cmp dword [ebp - 4], 1
jne 0x434ab6
mov dword [ebx + 0x34c], esi
mov eax, esi
mov dword [ebx + 0x358], eax
dec eax
mov esi, eax
add esi, esi
lea esi, [esi + esi*4]
lea edx, [ebp - 0x14]
mov eax, dword [ebx + 0x344]
call sub.vcl70.bpl__Controls_TControl_GetText_qqrv
cmp dword [ebp - 0x14], 0
je 0x434b7e
mov eax, dword [ebx + 0x340]
mov edx, dword [eax]
call dword [edx + 0xcc]
test eax, eax
jne 0x434b25
push 0x434e1c
lea edx, [ebp - 0x1c]
mov eax, dword [ebx + 0x344]
call sub.vcl70.bpl__Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0x1c]
lea edx, [ebp - 0x18]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
push dword [ebp - 0x18]
push 0x434e3c
lea eax, [ebp - 0xc]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
jmp 0x434b7e
push 0x434e48
lea edx, [ebp - 0x24]
mov eax, dword [ebx + 0x344]
call sub.vcl70.bpl__Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0x24]
lea edx, [ebp - 0x20]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
push dword [ebp - 0x20]
push 0x434e3c
push 0x434e68
lea edx, [ebp - 0x2c]
mov eax, dword [ebx + 0x344]
call sub.vcl70.bpl__Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0x2c]
lea edx, [ebp - 0x28]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
push dword [ebp - 0x28]
jne 0x434b44
push 0x434e88
lea eax, [ebp - 0xc]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
lea eax, [ebp - 0x10]
mov ecx, dword [ebp - 0xc]
mov edx, 0x434e98
call sub.rtl70.bpl__System__LStrCat3_qqrv
push 0x434f5c
push dword [ebp - 0x10]
push 0x434f84
push 0x434fb0
push 0x435008
push 0x435060
push 0x4350b8
push 0x435110
push 0x435168
lea edx, [ebp - 0x30]
mov eax, esi
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x30]
push 0x435188
push 0x4351b4
push dword [ebp - 0xc]
push 0x4351f0
lea eax, [ebp - 8]
mov edx, 0xe
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [edi]
mov eax, dword [eax + 0x88]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [edi]
mov eax, dword [eax + 0x88]
mov edx, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x2b0]
mov eax, dword [edi]
mov eax, dword [eax + 0x88]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [edi]
mov eax, dword [eax + 0x88]
mov edx, 0x435218
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
mov esi, eax
mov dword [ebp - 0x34], esi
fild dword [ebp - 0x34]
fdiv dword [0x435220]
add esp, 0xfffffff4
fstp xword [esp]
wait
call sub.rtl70.bpl__Math_Ceil_qqrxg
mov dword [ebx + 0x350], eax
xor esi, esi
mov eax, dword [edi]
mov eax, dword [eax + 0x88]
mov edx, 0x43522c
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x38]
push eax
mov ecx, esi
xor edx, edx
mov eax, dword [ebx + 0x30c]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
mov eax, dword [edi]
mov eax, dword [eax + 0x88]
mov edx, 0x435240
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x3c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x3c]
push eax
mov ecx, esi
mov edx, 1
mov eax, dword [ebx + 0x30c]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
mov eax, dword [edi]
mov eax, dword [eax + 0x88]
mov edx, 0x435250
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x40]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x40]
push eax
mov ecx, esi
mov edx, 2
mov eax, dword [ebx + 0x30c]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
mov eax, dword [edi]
mov eax, dword [eax + 0x88]
mov edx, 0x435264
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x50]
add esp, 0xfffffff8
fstp qword [esp]
wait
lea eax, [ebp - 0x44]
call sub.rtl70.bpl__Sysutils_DateToStr_qqrx16System_TDateTime
mov eax, dword [ebp - 0x44]
push eax
mov ecx, esi
mov edx, 3
mov eax, dword [ebx + 0x30c]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
mov eax, dword [edi]
mov eax, dword [eax + 0x88]
cmp byte [eax + 0xa1], 0
je 0x434d72
push 0
mov ecx, esi
xor edx, edx
mov eax, dword [ebx + 0x30c]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
push 0
mov ecx, esi
mov edx, 1
mov eax, dword [ebx + 0x30c]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
push 0
mov ecx, esi
mov edx, 2
mov eax, dword [ebx + 0x30c]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
push 0
mov ecx, esi
mov edx, 3
mov eax, dword [ebx + 0x30c]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
mov eax, dword [edi]
mov eax, dword [eax + 0x88]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
inc esi
cmp esi, 0xa
jne 0x434c4b
mov eax, dword [edi]
mov eax, dword [eax + 0x88]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, ebx
call fcn.00435270
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x434e0c
lea eax, [ebp - 0x44]
mov edx, 4
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x30]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x2c]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x28]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x24]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x20]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x1c]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x18]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x14]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x10]
mov edx, 3
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
ret