Function at 0x6fc354
Capabilities:
Print debug messages

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x4f
push 0
push 0
dec ecx
jne 0x6fc35c
push ebx
push esi
xor eax, eax
push ebp
push 0x6fc761
push dword fs:[eax]
mov dword fs:[eax], esp
push 0
lea eax, [ebp - 0x1c]
push eax
xor ecx, ecx
xor edx, edx
xor eax, eax
call sub.rtl120.bpl__Types_Rect_qqriiii
call sub.user32.dll_GetForegroundWindow
mov esi, eax
cmp esi, 0xffffffff
je 0x6fc71f
call sub.user32.dll_GetDesktopWindow
cmp esi, eax
jne 0x6fc3ae
mov eax, 0x6fc77c
call fcn.006fc2c4
xor ebx, ebx
jmp 0x6fc72b
lea eax, [ebp - 0x1c]
push eax
push esi
call sub.user32.dll_GetWindowRect
mov eax, dword [sym.imp.vcl120.bpl__Forms_Screen]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TScreen_GetWidth_qqrv
lea edx, [ebp - 0x224]
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x224]
lea eax, [ebp - 0x220]
mov edx, 0x6fc7c0
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x220]
call fcn.006fc2c4
mov eax, dword [sym.imp.vcl120.bpl__Forms_Screen]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TScreen_GetHeight_qqrv
lea edx, [ebp - 0x22c]
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x22c]
lea eax, [ebp - 0x228]
mov edx, 0x6fc7f8
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x228]
call fcn.006fc2c4
lea edx, [ebp - 0x234]
mov eax, dword [ebp - 0x1c]
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x234]
lea eax, [ebp - 0x230]
mov edx, 0x6fc834
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x230]
call fcn.006fc2c4
lea edx, [ebp - 0x23c]
mov eax, dword [ebp - 0x18]
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x23c]
lea eax, [ebp - 0x238]
mov edx, 0x6fc868
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x238]
call fcn.006fc2c4
lea edx, [ebp - 0x244]
mov eax, dword [ebp - 0x14]
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x244]
lea eax, [ebp - 0x240]
mov edx, 0x6fc89c
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x240]
call fcn.006fc2c4
lea edx, [ebp - 0x24c]
mov eax, dword [ebp - 0x10]
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x24c]
lea eax, [ebp - 0x248]
mov edx, 0x6fc8d4
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x248]
call fcn.006fc2c4
lea eax, [ebp - 0x1c]
call sub.rtl120.bpl__Types_RectWidth_qqrrx11Types_TRect
mov ebx, eax
mov eax, dword [sym.imp.vcl120.bpl__Forms_Screen]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TScreen_GetWidth_qqrv
cmp ebx, eax
jl 0x6fc711
lea eax, [ebp - 0x1c]
call sub.rtl120.bpl__Types_RectHeight_qqrrx11Types_TRect
mov ebx, eax
mov eax, dword [sym.imp.vcl120.bpl__Forms_Screen]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TScreen_GetHeight_qqrv
cmp ebx, eax
jl 0x6fc711
cmp dword [ebp - 0x1c], 0
jne 0x6fc711
cmp dword [ebp - 0x18], 0
jne 0x6fc711
mov eax, dword [sym.imp.vcl120.bpl__Forms_Screen]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TScreen_GetWidth_qqrv
cmp eax, dword [ebp - 0x14]
jne 0x6fc711
mov eax, dword [sym.imp.vcl120.bpl__Forms_Screen]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TScreen_GetHeight_qqrv
cmp eax, dword [ebp - 0x10]
jne 0x6fc711
push 0xff
lea eax, [ebp - 0x21c]
push eax
push esi
call sub.user32.dll_GetClassNameW
mov eax, 0x6fc90c
call fcn.006fc2c4
lea eax, [ebp - 0x254]
lea edx, [ebp - 0x21c]
mov ecx, pe_nt_image_headers32
call sub.rtl120.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
mov ecx, dword [ebp - 0x254]
lea eax, [ebp - 0x250]
mov edx, 0x6fc944
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x250]
call fcn.006fc2c4
mov eax, 0x6fc968
mov dword [ebp - 0x260], eax
mov eax, 0x6fc984
mov dword [ebp - 0x25c], eax
mov eax, 0x6fc9a0
mov dword [ebp - 0x258], eax
lea eax, [ebp - 0x260]
push eax
lea eax, [ebp - 0x264]
lea edx, [ebp - 0x21c]
mov ecx, pe_nt_image_headers32
call sub.rtl120.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
mov eax, dword [ebp - 0x264]
mov ecx, 2
pop edx
call sub.rtl120.bpl__Strutils_MatchText_qqrx20System_UnicodeStringpx20System_UnicodeStringxi
mov ebx, eax
xor bl, 1
test bl, bl
jne 0x6fc72b
lea eax, [ebp - 8]
push eax
push esi
call sub.user32.dll_GetWindowThreadProcessId
lea edx, [ebp - 4]
mov eax, dword [ebp - 8]
call fcn.0040d3b4
lea eax, [ebp - 0x268]
mov ecx, dword [ebp - 4]
mov edx, 0x6fc9e4
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x268]
call fcn.006fc2c4
push 0x6fca10
lea edx, [ebp - 0x270]
mov eax, dword [sym.imp.rtl120.bpl__Sysutils_Win32MajorVersion]
mov eax, dword [eax]
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x270]
push 0x6fca4c
lea edx, [ebp - 0x274]
mov eax, dword [sym.imp.rtl120.bpl__Sysutils_Win32MinorVersion]
mov eax, dword [eax]
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x274]
lea eax, [ebp - 0x26c]
mov edx, 4
call sub.rtl120.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x26c]
call fcn.006fc2c4
mov edx, dword [ebp - 4]
mov eax, 0x6fca68
call sub.rtl120.bpl__Sysutils_SameText_qqrx20System_UnicodeStringt1
test al, al
jne 0x6fc6bb
mov edx, dword [ebp - 4]
mov eax, 0x6fca8c
call sub.rtl120.bpl__Sysutils_SameText_qqrx20System_UnicodeStringt1
test al, al
jne 0x6fc6bb
xor eax, eax
jmp 0x6fc6bd
mov al, 1
mov byte [ebp - 9], al
lea eax, [ebp - 0x278]
lea edx, [ebp - 0x21c]
mov ecx, pe_nt_image_headers32
call sub.rtl120.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
mov eax, dword [ebp - 0x278]
mov edx, 0x6fc9a0
call sub.rtl120.bpl__Sysutils_SameText_qqrx20System_UnicodeStringt1
and al, byte [ebp - 9]
je 0x6fc72b
mov eax, dword [sym.imp.rtl120.bpl__Sysutils_Win32MajorVersion]
cmp dword [eax], 6
jne 0x6fc709
mov eax, dword [sym.imp.rtl120.bpl__Sysutils_Win32MinorVersion]
cmp dword [eax], 2
je 0x6fc70d
mov eax, dword [sym.imp.rtl120.bpl__Sysutils_Win32MinorVersion]
cmp dword [eax], 3
je 0x6fc70d
xor ebx, ebx
jmp 0x6fc72b
mov bl, 1
jmp 0x6fc72b
push 0x6fcaa8
call sub.kernel32.dll_OutputDebugStringW
xor ebx, ebx
jmp 0x6fc72b
xor ebx, ebx
mov eax, 0x6fcae0
call fcn.006fc2c4
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6fc768
lea eax, [ebp - 0x278]
mov edx, 6
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x254]
mov edx, 0xe
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret