Function at 0x613d8c
Capabilities:
Print debug messages

Disassembly:
push ebp
mov ebp, esp
mov ecx, 6
push 0
push 0
dec ecx
jne 0x613d94
push ebx
push esi
mov esi, edx
mov ebx, eax
xor eax, eax
push ebp
push 0x61401d
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 4]
mov eax, esi
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov edx, dword [ebp - 4]
mov eax, dword [ebx + 0x3a0]
call sub.vcl120.bpl__Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [ebx + 0x398]
mov ecx, dword [eax + 0x4c]
mov edx, dword [ebx + 0x3a0]
sub ecx, dword [edx + 0x4c]
sar ecx, 1
jns 0x613de0
adc ecx, 0
add ecx, dword [eax + 0x44]
sub ecx, 3
mov eax, ecx
xchg edx, eax
call sub.vcl120.bpl__Controls_TControl_SetTop_qqri
mov eax, dword [ebx + 0x398]
mov ecx, dword [eax + 0x48]
mov edx, dword [ebx + 0x3a0]
sub ecx, dword [edx + 0x48]
sar ecx, 1
jns 0x613e07
adc ecx, 0
add ecx, dword [eax + 0x40]
mov eax, ecx
xchg edx, eax
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
cmp esi, 0xa
jge 0x613e29
mov edx, esi
mov eax, dword [ebx + 0x398]
mov ecx, dword [eax]
call dword [ecx + 0x94]
jmp 0x613e3c
mov edx, 0xa
mov eax, dword [ebx + 0x398]
mov ecx, dword [eax]
call dword [ecx + 0x94]
movzx eax, byte [0x61402c]
push eax
lea eax, [ebp - 8]
push eax
lea ecx, [ebp - 0xc]
mov eax, dword [0x806a24]
mov eax, dword [eax]
mov edx, 0x61403c
call fcn.00584a64
mov eax, dword [ebp - 0xc]
push eax
lea edx, [ebp - 0x10]
mov eax, esi
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x10]
mov edx, 0x614064
pop eax
call sub.rtl120.bpl__Sysutils_StringReplace_qqrx20System_UnicodeStringt1t149System__Set_t21Sysutils_Sysutils__15_iuc_0_iuc_1_
mov edx, dword [ebp - 8]
mov eax, dword [ebx + 0x390]
call sub.vcl120.bpl__Controls_TControl_SetText_qqrx20System_UnicodeString
push 2
mov ecx, 2
mov edx, 0x11d
mov eax, dword [ebx + 0x390]
call fcn.005bf358
test esi, esi
jg 0x613ec5
lea ecx, [ebp - 0x14]
mov eax, dword [0x806a24]
mov eax, dword [eax]
mov edx, 0x614078
call fcn.00584a64
mov edx, dword [ebp - 0x14]
mov eax, dword [ebx + 0x38c]
call sub.vcl120.bpl__Controls_TControl_SetText_qqrx20System_UnicodeString
jmp 0x613f43
cmp esi, 1
jne 0x613eee
lea ecx, [ebp - 0x18]
mov eax, dword [0x806a24]
mov eax, dword [eax]
mov edx, 0x6140a0
call fcn.00584a64
mov edx, dword [ebp - 0x18]
mov eax, dword [ebx + 0x38c]
call sub.vcl120.bpl__Controls_TControl_SetText_qqrx20System_UnicodeString
jmp 0x613f43
cmp esi, 5
jg 0x613f1c
cmp esi, 2
jl 0x613f1c
lea ecx, [ebp - 0x1c]
mov eax, dword [0x806a24]
mov eax, dword [eax]
mov edx, 0x6140c8
call fcn.00584a64
mov edx, dword [ebp - 0x1c]
mov eax, dword [ebx + 0x38c]
call sub.vcl120.bpl__Controls_TControl_SetText_qqrx20System_UnicodeString
jmp 0x613f43
cmp esi, 6
jl 0x613f43
lea ecx, [ebp - 0x20]
mov eax, dword [0x806a24]
mov eax, dword [eax]
mov edx, 0x6140f0
call fcn.00584a64
mov edx, dword [ebp - 0x20]
mov eax, dword [ebx + 0x38c]
call sub.vcl120.bpl__Controls_TControl_SetText_qqrx20System_UnicodeString
mov eax, dword [ebx + 0x38c]
cmp dword [eax + 0x48], 0x11d
jle 0x613f5f
mov eax, dword [eax + 0x64]
mov edx, 0xffffffec
call sub.vcl120.bpl__Graphics_TFont_SetSize_qqrxi
mov eax, dword [0x807260]
push dword [eax + 0x1c]
push dword [eax + 0x18]
lea eax, [ebp - 0x24]
call sub.rtl120.bpl__Sysutils_DateTimeToStr_qqrx16System_TDateTime
mov eax, dword [ebp - 0x24]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_OutputDebugStringW
push dword [ebx + 0x454]
push dword [ebx + 0x450]
lea eax, [ebp - 0x28]
call sub.rtl120.bpl__Sysutils_DateTimeToStr_qqrx16System_TDateTime
mov eax, dword [ebp - 0x28]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_OutputDebugStringW
lea edx, [ebp - 0x2c]
mov eax, dword [0x807260]
mov eax, dword [eax + 4]
call sub.rtl120.bpl__Sysutils_UpperCase_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x2c]
push eax
lea edx, [ebp - 0x30]
mov eax, dword [ebx + 0x448]
call sub.rtl120.bpl__Sysutils_UpperCase_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x30]
pop eax
call sub.rtl120.bpl__System__UStrEqual_qqrv
jne 0x613ff9
mov eax, dword [0x807260]
push dword [eax + 0x1c]
push dword [eax + 0x18]
push dword [ebx + 0x454]
push dword [ebx + 0x450]
call sub.rtl120.bpl__Dateutils_DaysBetween_qqrx16System_TDateTimet1
test eax, eax
sete dl
mov eax, ebx
call fcn.006131b4
jmp 0x614002
xor edx, edx
mov eax, ebx
call fcn.006131b4
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x614024
lea eax, [ebp - 0x30]
mov edx, 0xc
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret