Function at 0x71cd4c
Capabilities:
Get number of processors

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffd8
push ebx
push esi
push edi
xor edx, edx
mov dword [ebp - 0x28], edx
mov dword [ebp - 4], edx
mov ebx, eax
xor eax, eax
push ebp
push 0x71d052
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
mov eax, dword [eax + 0x14]
xor edx, edx
call sub.vcl120.bpl__Graphics_TBrush_SetColor_qqr15Graphics_TColor
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
mov eax, dword [eax + 0x14]
xor edx, edx
call sub.vcl120.bpl__Graphics_TBrush_SetStyle_qqr20Graphics_TBrushStyle
lea edx, [ebp - 0x24]
mov eax, dword [ebx + 0x45c]
mov ecx, dword [eax]
call dword [ecx + 0x44]
lea eax, [ebp - 0x24]
push eax
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
pop edx
call sub.vcl120.bpl__Graphics_TCanvas_FillRect_qqrrx11Types_TRect
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
mov eax, dword [eax + 0x14]
mov edx, 0x8000
call sub.vcl120.bpl__Graphics_TBrush_SetColor_qqr15Graphics_TColor
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
mov eax, dword [eax + 0x14]
xor edx, edx
call sub.vcl120.bpl__Graphics_TBrush_SetStyle_qqr20Graphics_TBrushStyle
lea edx, [ebp - 0x24]
mov eax, dword [ebx + 0x45c]
mov ecx, dword [eax]
call dword [ecx + 0x44]
mov eax, dword [ebp - 0x24]
add eax, 0xf
mov dword [ebp - 0x14], eax
lea edx, [ebp - 0x24]
mov eax, dword [ebx + 0x45c]
mov ecx, dword [eax]
call dword [ecx + 0x44]
mov eax, dword [ebp - 0x1c]
sub eax, 0xf
mov dword [ebp - 0xc], eax
lea edx, [ebp - 0x24]
mov eax, dword [ebx + 0x45c]
mov ecx, dword [eax]
call dword [ecx + 0x44]
mov esi, dword [ebp - 0x20]
add esi, 5
mov dword [ebp - 0x10], esi
mov edi, esi
add edi, 0x3c
mov dword [ebp - 8], edi
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
lea edx, [ebp - 0x14]
call sub.vcl120.bpl__Graphics_TCanvas_FillRect_qqrrx11Types_TRect
mov eax, dword [ebx + 0x514]
mov eax, dword [eax + 0x30]
mov ecx, dword [ebp - 8]
sub ecx, dword [ebp - 0x10]
imul ecx
mov esi, 0x64
cdq
idiv esi
sub ecx, eax
add dword [ebp - 0x10], ecx
mov eax, dword [ebp - 8]
cmp eax, dword [ebp - 0x10]
jne 0x71ce7d
mov edx, dword [ebx + 0x514]
cmp dword [edx + 0x30], 0
jle 0x71ce7d
dec eax
mov dword [ebp - 0x10], eax
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
mov eax, dword [eax + 0x14]
mov edx, 0xff00
call sub.vcl120.bpl__Graphics_TBrush_SetColor_qqr15Graphics_TColor
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
lea edx, [ebp - 0x14]
call sub.vcl120.bpl__Graphics_TCanvas_FillRect_qqrrx11Types_TRect
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
mov eax, dword [eax + 0x10]
xor edx, edx
call sub.vcl120.bpl__Graphics_TPen_SetColor_qqr15Graphics_TColor
lea edx, [ebp - 0x24]
mov eax, dword [ebx + 0x45c]
mov ecx, dword [eax]
call dword [ecx + 0x44]
mov esi, dword [ebp - 0x20]
add esi, 5
mov dword [ebp - 0x10], esi
mov eax, dword [ebp - 8]
sub eax, esi
mov ecx, 0x14
cdq
idiv ecx
mov edi, eax
xor esi, esi
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
mov ecx, edi
imul ecx, esi
add ecx, dword [ebp - 0x10]
mov edx, dword [ebp - 0x14]
call sub.vcl120.bpl__Graphics_TCanvas_MoveTo_qqrii
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
mov ecx, edi
imul ecx, esi
add ecx, dword [ebp - 0x10]
mov edx, dword [ebp - 0xc]
call sub.vcl120.bpl__Graphics_TCanvas_LineTo_qqrii
inc esi
cmp esi, 0x14
jne 0x71cee5
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
mov edx, dword [ebp - 0xc]
mov esi, dword [ebp - 0x14]
sub edx, esi
sar edx, 1
jns 0x71cf3b
adc edx, 0
add edx, esi
mov ecx, dword [ebp - 0x10]
call sub.vcl120.bpl__Graphics_TCanvas_MoveTo_qqrii
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
mov edx, dword [ebp - 0xc]
sub edx, dword [ebp - 0x14]
sar edx, 1
jns 0x71cf5d
adc edx, 0
add edx, dword [ebp - 0x14]
mov ecx, dword [ebp - 8]
call sub.vcl120.bpl__Graphics_TCanvas_LineTo_qqrii
lea edx, [ebp - 0x28]
mov eax, dword [ebx + 0x514]
mov eax, dword [eax + 0x30]
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov edx, dword [ebp - 0x28]
lea eax, [ebp - 4]
mov ecx, 0x71d06c
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
mov eax, dword [eax + 0xc]
mov edx, 0xff00
call sub.vcl120.bpl__Graphics_TFont_SetColor_qqrx15Graphics_TColor
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
mov eax, dword [eax + 0xc]
mov edx, 0xfffffff5
call sub.vcl120.bpl__Graphics_TFont_SetHeight_qqrxi
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
mov eax, dword [eax + 0x14]
mov dl, 1
call sub.vcl120.bpl__Graphics_TBrush_SetStyle_qqr20Graphics_TBrushStyle
mov eax, dword [ebp - 4]
push eax
lea edx, [ebp - 0x24]
mov eax, dword [ebx + 0x45c]
mov ecx, dword [eax]
call dword [ecx + 0x44]
mov esi, dword [ebp - 0x18]
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
mov edx, dword [ebp - 4]
call sub.vcl120.bpl__Graphics_TCanvas_TextHeight_qqrx20System_UnicodeString
sub esi, eax
sub esi, 5
push esi
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
mov edx, dword [ebp - 4]
call sub.vcl120.bpl__Graphics_TCanvas_TextWidth_qqrx20System_UnicodeString
mov edx, dword [ebp - 0xc]
sub edx, dword [ebp - 0x14]
sub edx, eax
sar edx, 1
jns 0x71d01e
adc edx, 0
add edx, dword [ebp - 0x14]
push edx
mov eax, dword [ebx + 0x45c]
call sub.vcl120.bpl__Extctrls_TImage_GetCanvas_qqrv
pop edx
pop ecx
call sub.vcl120.bpl__Graphics_TCanvas_TextOut_qqriix20System_UnicodeString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x71d059
lea eax, [ebp - 0x28]
call sub.rtl120.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret