Function at 0x6f4700
Capabilities:
Print debug messages

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffd0
push ebx
push esi
xor edx, edx
mov dword [ebp - 0xc], edx
mov dword [ebp - 0x10], edx
mov ebx, eax
xor eax, eax
push ebp
push 0x6f4c34
push dword fs:[eax]
mov dword fs:[eax], esp
fild dword [ebx + 0x48]
fdiv dword [0x6f4c44]
fstp qword [ebp - 8]
wait
lea ecx, [ebp - 0x10]
mov dl, 1
movzx eax, byte [0x801f00]
call sub.rtl120.bpl__Sysutils_BoolToStr_qqroo
mov ecx, dword [ebp - 0x10]
lea eax, [ebp - 0xc]
mov edx, 0x6f4c54
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_OutputDebugStringW
cmp byte [0x801f00], 0
je 0x6f47b7
xor edx, edx
mov eax, dword [ebx + 0x37c]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
xor edx, edx
mov eax, dword [ebx + 0x37c]
call sub.vcl120.bpl__Controls_TControl_SetTop_qqri
mov edx, dword [ebx + 0x48]
sub edx, 0x14
mov eax, ebx
call sub.vcl120.bpl__Controls_TControl_SetWidth_qqri
mov edx, dword [ebx + 0x4c]
sub edx, 0x14
mov eax, ebx
call sub.vcl120.bpl__Controls_TControl_SetHeight_qqri
mov edx, dword [ebx + 0x48]
mov eax, dword [ebx + 0x37c]
call sub.vcl120.bpl__Controls_TControl_SetWidth_qqri
mov edx, dword [ebx + 0x4c]
mov eax, dword [ebx + 0x37c]
call sub.vcl120.bpl__Controls_TControl_SetHeight_qqri
jmp 0x6f47f9
mov edx, 0xa
mov eax, dword [ebx + 0x37c]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
mov edx, 0xa
mov eax, dword [ebx + 0x37c]
call sub.vcl120.bpl__Controls_TControl_SetTop_qqri
mov edx, dword [ebx + 0x48]
sub edx, 0x14
mov eax, dword [ebx + 0x37c]
call sub.vcl120.bpl__Controls_TControl_SetWidth_qqri
mov edx, dword [ebx + 0x4c]
sub edx, 0x14
mov eax, dword [ebx + 0x37c]
call sub.vcl120.bpl__Controls_TControl_SetHeight_qqri
xor edx, edx
mov eax, dword [ebx + 0x388]
call sub.vcl120.bpl__Controls_TControl_SetTop_qqri
mov edx, dword [ebx + 0x37c]
mov edx, dword [edx + 0x48]
mov eax, dword [ebx + 0x388]
sub edx, dword [eax + 0x48]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
mov ecx, 1
mov edx, 0x294
mov eax, dword [ebx + 0x380]
call fcn.005bf7ac
mov eax, dword [ebx + 0x380]
call fcn.005bf558
push 2
mov ecx, 2
mov edx, 0x2bc
mov eax, dword [ebx + 0x3b0]
call fcn.005bf358
mov eax, dword [ebx + 0x3b0]
call fcn.005bf558
mov eax, dword [ebx + 0x384]
call fcn.005bf558
mov edx, 0x31
mov eax, dword [ebx + 0x380]
call sub.vcl120.bpl__Controls_TControl_SetTop_qqri
lea edx, [ebp - 0x20]
mov eax, dword [ebx + 0x380]
call sub.vcl120.bpl__Controls_TControl_GetBoundsRect_qqrv
mov edx, dword [ebp - 0x14]
add edx, 0x10
sub edx, 3
mov eax, dword [ebx + 0x3b0]
call sub.vcl120.bpl__Controls_TControl_SetTop_qqri
mov edx, dword [ebx + 0x37c]
mov edx, dword [edx + 0x4c]
sub edx, 0x34
mov eax, dword [ebx + 0x384]
sub edx, dword [eax + 0x4c]
call sub.vcl120.bpl__Controls_TControl_SetTop_qqri
lea edx, [ebp - 0x20]
mov eax, dword [ebx + 0x3b0]
call sub.vcl120.bpl__Controls_TControl_GetBoundsRect_qqrv
mov esi, dword [ebp - 0x14]
lea edx, [ebp - 0x30]
mov eax, dword [ebx + 0x3b0]
call sub.vcl120.bpl__Controls_TControl_GetBoundsRect_qqrv
mov eax, dword [ebx + 0x384]
mov eax, dword [eax + 0x44]
sub eax, dword [ebp - 0x24]
mov edx, dword [ebx + 0x38c]
sub eax, dword [edx + 0x4c]
sar eax, 1
jns 0x6f48f1
adc eax, 0
add esi, eax
mov edx, esi
mov eax, dword [ebx + 0x38c]
call sub.vcl120.bpl__Controls_TControl_SetTop_qqri
push 0
push 2
mov eax, dword [ebx + 0x48]
cdq
push edx
push eax
fld dword [0x6f4c68]
fmul qword [ebp - 8]
call sub.rtl120.bpl__System__TRUNC_qqrv
push edx
push eax
mov esi, dword [ebx + 0x38c]
mov eax, dword [esi + 0x48]
cdq
add eax, dword [esp]
adc edx, dword [esp + 4]
add esp, 8
push edx
push eax
mov eax, dword [ebx + 0x390]
mov eax, dword [eax + 0x48]
cdq
add eax, dword [esp]
adc edx, dword [esp + 4]
add esp, 8
push edx
push eax
fld dword [0x6f4c6c]
fmul qword [ebp - 8]
call sub.rtl120.bpl__System__TRUNC_qqrv
add eax, dword [esp]
adc edx, dword [esp + 4]
add esp, 8
push edx
push eax
fld dword [0x6f4c70]
fmul qword [ebp - 8]
call sub.rtl120.bpl__System__TRUNC_qqrv
add eax, dword [esp]
adc edx, dword [esp + 4]
add esp, 8
sub dword [esp], eax
sbb dword [esp + 4], edx
pop eax
pop edx
call sub.rtl120.bpl__System___lldiv_qqrv
mov edx, eax
mov eax, esi
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
lea edx, [ebp - 0x20]
mov eax, dword [ebx + 0x38c]
call sub.vcl120.bpl__Controls_TControl_GetBoundsRect_qqrv
mov esi, dword [ebp - 0x18]
fld dword [0x6f4c68]
fmul qword [ebp - 8]
call sub.rtl120.bpl__System__TRUNC_qqrv
add esi, eax
mov edx, esi
mov eax, dword [ebx + 0x390]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [ebx + 0x390]
mov edx, dword [eax + 0x40]
mov eax, dword [ebx + 0x394]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [ebx + 0x390]
mov edx, dword [eax + 0x40]
mov eax, dword [ebx + 0x398]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [ebx + 0x390]
mov edx, dword [eax + 0x40]
mov eax, dword [ebx + 0x39c]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
fld dword [0x6f4c70]
fmul qword [ebp - 8]
call sub.rtl120.bpl__System__TRUNC_qqrv
mov edx, eax
mov ecx, 2
mov eax, dword [ebx + 0x3a0]
call fcn.005bf7ac
fld dword [0x6f4c70]
fmul qword [ebp - 8]
call sub.rtl120.bpl__System__TRUNC_qqrv
mov edx, eax
mov ecx, 2
mov eax, dword [ebx + 0x3a4]
call fcn.005bf7ac
fld dword [0x6f4c70]
fmul qword [ebp - 8]
call sub.rtl120.bpl__System__TRUNC_qqrv
mov edx, eax
mov ecx, 2
mov eax, dword [ebx + 0x3a8]
call fcn.005bf7ac
fld dword [0x6f4c70]
fmul qword [ebp - 8]
call sub.rtl120.bpl__System__TRUNC_qqrv
mov edx, eax
mov ecx, 2
mov eax, dword [ebx + 0x3ac]
call fcn.005bf7ac
lea edx, [ebp - 0x20]
mov eax, dword [ebx + 0x3b0]
call sub.vcl120.bpl__Controls_TControl_GetBoundsRect_qqrv
mov eax, dword [ebx + 0x384]
mov esi, dword [eax + 0x44]
sub esi, dword [ebp - 0x14]
mov eax, dword [ebx + 0x3a0]
mov eax, dword [eax + 0x4c]
mov edx, dword [ebx + 0x3a4]
add eax, dword [edx + 0x4c]
mov edx, dword [ebx + 0x3a8]
add eax, dword [edx + 0x4c]
mov edx, dword [ebx + 0x3ac]
add eax, dword [edx + 0x4c]
add eax, 0x2a
sub esi, eax
sar esi, 1
jns 0x6f4ac3
adc esi, 0
lea edx, [ebp - 0x30]
mov eax, dword [ebx + 0x3b0]
call sub.vcl120.bpl__Controls_TControl_GetBoundsRect_qqrv
add esi, dword [ebp - 0x24]
mov edx, esi
mov eax, dword [ebx + 0x3a0]
call sub.vcl120.bpl__Controls_TControl_SetTop_qqri
lea edx, [ebp - 0x20]
mov eax, dword [ebx + 0x3a0]
call sub.vcl120.bpl__Controls_TControl_GetBoundsRect_qqrv
mov esi, dword [ebp - 0x14]
fld dword [0x6f4c74]
fmul qword [ebp - 8]
call sub.rtl120.bpl__System__TRUNC_qqrv
add esi, eax
mov edx, esi
mov eax, dword [ebx + 0x3a4]
call sub.vcl120.bpl__Controls_TControl_SetTop_qqri
lea edx, [ebp - 0x20]
mov eax, dword [ebx + 0x3a4]
call sub.vcl120.bpl__Controls_TControl_GetBoundsRect_qqrv
mov esi, dword [ebp - 0x14]
fld dword [0x6f4c74]
fmul qword [ebp - 8]
call sub.rtl120.bpl__System__TRUNC_qqrv
add esi, eax
mov edx, esi
mov eax, dword [ebx + 0x3a8]
call sub.vcl120.bpl__Controls_TControl_SetTop_qqri
lea edx, [ebp - 0x20]
mov eax, dword [ebx + 0x3a8]
call sub.vcl120.bpl__Controls_TControl_GetBoundsRect_qqrv
mov esi, dword [ebp - 0x14]
fld dword [0x6f4c74]
fmul qword [ebp - 8]
call sub.rtl120.bpl__System__TRUNC_qqrv
add esi, eax
mov edx, esi
mov eax, dword [ebx + 0x3ac]
call sub.vcl120.bpl__Controls_TControl_SetTop_qqri
lea edx, [ebp - 0x20]
mov eax, dword [ebx + 0x390]
call sub.vcl120.bpl__Controls_TControl_GetBoundsRect_qqrv
mov esi, dword [ebp - 0x18]
fld dword [0x6f4c6c]
fmul qword [ebp - 8]
call sub.rtl120.bpl__System__TRUNC_qqrv
add esi, eax
mov edx, esi
mov eax, dword [ebx + 0x3a0]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [ebx + 0x3a0]
mov edx, dword [eax + 0x40]
mov eax, dword [ebx + 0x3a4]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [ebx + 0x3a0]
mov edx, dword [eax + 0x40]
mov eax, dword [ebx + 0x3a8]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
mov eax, dword [ebx + 0x3a0]
mov edx, dword [eax + 0x40]
mov eax, dword [ebx + 0x3ac]
call sub.vcl120.bpl__Controls_TControl_SetLeft_qqri
mov edx, dword [ebx + 0x390]
mov eax, dword [ebx + 0x3a0]
call fcn.005bf52c
mov edx, dword [ebx + 0x394]
mov eax, dword [ebx + 0x3a4]
call fcn.005bf52c
mov edx, dword [ebx + 0x398]
mov eax, dword [ebx + 0x3a8]
call fcn.005bf52c
mov edx, dword [ebx + 0x39c]
mov eax, dword [ebx + 0x3ac]
call fcn.005bf52c
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6f4c3b
lea eax, [ebp - 0x10]
mov edx, 2
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret