Function at 0x4fa080
Capabilities:
Resolve function by parsing pe exports

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffff2c
push ebx
push esi
push edi
xor edx, edx
mov dword [ebp - 4], edx
mov dword [ebp - 8], eax
xor eax, eax
push ebp
push 0x4fa8c4
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x48]
mov eax, dword [eax + 0x1a0]
call sub.vcl120.bpl__Graphics_TCanvas_GetHandle_qqrv
mov dword [ebp - 0xc], eax
mov eax, dword [ebp - 0xc]
push eax
call sub.gdi32.dll_SaveDC
mov dword [ebp - 0x10], eax
mov dl, 1
mov eax, dword [sym.imp.vcl120.bpl__Graphics_TCanvas_]
call sub.vcl120.bpl__Graphics_TCanvas__bctr_qqrv
mov dword [ebp - 0x14], eax
mov edx, dword [ebp - 0xc]
mov eax, dword [ebp - 0x14]
call sub.vcl120.bpl__Graphics_TCanvas_SetHandle_qqrp5HDC__
mov dl, 1
mov eax, dword [sym.imp.vcl120.bpl__Graphics_TBitmap_]
call sub.vcl120.bpl__Graphics_TBitmap__bctr_qqrv
mov dword [ebp - 0x18], eax
mov dl, 1
mov eax, dword [0x42939c]
call fcn.0042fe5c
mov dword [ebp - 0x1c], eax
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x8c]
call sub.rtl120.bpl__Classes_TCollection_GetCount_qqrv
dec eax
test eax, eax
jl 0x4fa87f
inc eax
mov dword [ebp - 0x48], eax
mov dword [ebp - 0x44], 0
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x8c]
mov edx, dword [ebp - 0x44]
call fcn.004f8988
mov ebx, eax
test ebx, ebx
je 0x4fa873
cmp byte [ebx + 0x8c], 0
je 0x4fa873
mov eax, dword [ebx + 0xd0]
mov esi, dword [eax + 0xc]
test esi, esi
je 0x4fa5bf
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x20]
test al, al
jne 0x4fa5bf
mov eax, dword [ebx + 0xd0]
mov esi, dword [eax + 0xc]
xor edx, edx
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 8]
xor edx, edx
mov eax, dword [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 8]
cmp byte [ebx + 0x8c], 0
je 0x4fa873
cmp byte [ebx + 0x90], 0
je 0x4fa1a7
lea edx, [ebp - 0x58]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x48]
mov ecx, dword [eax]
call dword [ecx + 0x44]
jmp 0x4fa1c4
mov eax, dword [ebx + 0x2c]
add eax, dword [ebx + 0x3c]
push eax
lea eax, [ebp - 0x58]
push eax
mov edi, dword [ebx + 0x24]
mov ecx, edi
add ecx, dword [ebx + 0x34]
mov edx, dword [ebx + 0x2c]
mov eax, edi
call sub.rtl120.bpl__Classes_Rect_qqriiii
lea eax, [ebp - 0x58]
push eax
call sub.user32.dll_IsRectEmpty
test eax, eax
jne 0x4fa873
lea edx, [ebp - 0xb0]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x48]
mov ecx, dword [eax]
call dword [ecx + 0x44]
lea eax, [ebp - 0xb0]
push eax
lea eax, [ebp - 0x58]
push eax
lea eax, [ebp - 0x68]
push eax
call sub.user32.dll_IntersectRect
lea eax, [ebp - 0x68]
push eax
call sub.user32.dll_IsRectEmpty
test eax, eax
jne 0x4fa873
cmp byte [ebx + 0x90], 0
jne 0x4fa22b
cmp byte [ebx + 0x8e], 0
je 0x4fa22b
cmp word [ebx + 0x92], 0
jne 0x4fa22b
xor eax, eax
jmp 0x4fa22d
mov al, 1
mov byte [ebp - 0x3d], al
movzx eax, word [ebx + 0x92]
test ax, ax
je 0x4fa24e
movsx edx, word [ebx + 0x92]
push edx
push edx
lea eax, [ebp - 0x58]
push eax
call sub.user32.dll_InflateRect
cmp byte [ebx + 0x98], 0
jbe 0x4fa28c
mov eax, dword [ebx + 0xe8]
mov edx, dword [eax]
call dword [edx + 0x20]
test al, al
je 0x4fa27a
movzx edx, byte [ebx + 0x98]
lea eax, [ebx + 0xe4]
call fcn.00478bb8
jmp 0x4fa28c
movzx edx, byte [ebx + 0x98]
lea eax, [ebx + 0xe8]
call fcn.00478c28
fld dword [ebx + 0x9c]
fcomp dword [0x4fa8d4]
wait
fnstsw ax
sahf
je 0x4fa58b
mov eax, dword [ebx + 0xe8]
mov edx, dword [eax]
call dword [edx + 0x20]
test al, al
je 0x4fa2c4
mov edx, dword [ebx + 0xe4]
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 8]
mov esi, dword [ebp - 0x18]
jmp 0x4fa2d5
mov edx, dword [ebx + 0xe8]
mov eax, dword [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 8]
mov esi, dword [ebp - 0x1c]
mov dl, 1
mov eax, dword [sym.imp.vcl120.bpl__Graphics_TBitmap_]
call sub.vcl120.bpl__Graphics_TBitmap__bctr_qqrv
mov dword [ebp - 0x20], eax
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x2c]
mov edx, eax
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x40]
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x24]
push eax
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x30]
mov edx, eax
mov eax, dword [ebp - 0x20]
pop ecx
mov edi, dword [eax]
call dword [edi + 0x6c]
mov edx, esi
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 8]
mov dl, 1
mov eax, dword [sym.imp.vcl120.bpl__Graphics_TBitmap_]
call sub.vcl120.bpl__Graphics_TBitmap__bctr_qqrv
mov dword [ebp - 0x24], eax
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x2c]
mov edx, eax
mov eax, dword [ebp - 0x24]
mov ecx, dword [eax]
call dword [ecx + 0x40]
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x24]
push eax
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x30]
mov edx, eax
mov eax, dword [ebp - 0x24]
pop ecx
mov edi, dword [eax]
call dword [edi + 0x6c]
fld xword [0x4fa8d8]
fmul dword [ebx + 0x9c]
fdiv dword [0x4fa8e4]
fstp dword [ebp - 0x28]
wait
fld dword [ebp - 0x28]
add esp, 0xfffffff4
fstp xword [esp]
wait
call sub.rtl120.bpl__System_Sin_qqrxg
fstp dword [ebp - 0x2c]
wait
fld dword [ebp - 0x28]
add esp, 0xfffffff4
fstp xword [esp]
wait
call sub.rtl120.bpl__System_Cos_qqrxg
fstp dword [ebp - 0x30]
wait
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x30]
mov dword [ebp - 0xb4], eax
fild dword [ebp - 0xb4]
fstp xword [ebp - 0xc0]
wait
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x30]
mov dword [ebp - 0xc4], eax
fild dword [ebp - 0xc4]
fmul dword [ebp - 0x30]
fld xword [ebp - 0xc0]
fsubrp st(1)
fstp xword [ebp - 0xd0]
wait
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x24]
mov dword [ebp - 0xd4], eax
fild dword [ebp - 0xd4]
fmul dword [ebp - 0x2c]
fld xword [ebp - 0xd0]
faddp st(1)
fdiv dword [0x4fa8e8]
fstp dword [ebp - 0x34]
wait
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x24]
mov dword [ebp - 0xb4], eax
fild dword [ebp - 0xb4]
fstp xword [ebp - 0xc0]
wait
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x30]
mov dword [ebp - 0xc4], eax
fild dword [ebp - 0xc4]
fmul dword [ebp - 0x2c]
fld xword [ebp - 0xc0]
fsubrp st(1)
fstp xword [ebp - 0xd0]
wait
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x24]
mov dword [ebp - 0xd4], eax
fild dword [ebp - 0xd4]
fmul dword [ebp - 0x30]
fld xword [ebp - 0xd0]
fsubrp st(1)
fdiv dword [0x4fa8e8]
fstp dword [ebp - 0x38]
wait
fld dword [ebp - 0x34]
call sub.rtl120.bpl__System__ROUND_qqrv
mov dword [ebp - 0x80], eax
fld dword [ebp - 0x38]
call sub.rtl120.bpl__System__ROUND_qqrv
mov dword [ebp - 0x7c], eax
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x30]
mov dword [ebp - 0xb4], eax
fild dword [ebp - 0xb4]
fmul dword [ebp - 0x30]
fadd dword [ebp - 0x34]
call sub.rtl120.bpl__System__ROUND_qqrv
mov dword [ebp - 0x78], eax
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x30]
mov dword [ebp - 0xb4], eax
fild dword [ebp - 0xb4]
fmul dword [ebp - 0x2c]
fadd dword [ebp - 0x38]
call sub.rtl120.bpl__System__ROUND_qqrv
mov dword [ebp - 0x74], eax
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x24]
mov dword [ebp - 0xb4], eax
fild dword [ebp - 0xb4]
fmul dword [ebp - 0x2c]
fsubr dword [ebp - 0x34]
call sub.rtl120.bpl__System__ROUND_qqrv
mov dword [ebp - 0x70], eax
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x24]
mov dword [ebp - 0xb4], eax
fild dword [ebp - 0xb4]
fmul dword [ebp - 0x30]
fadd dword [ebp - 0x38]
call sub.rtl120.bpl__System__ROUND_qqrv
mov dword [ebp - 0x6c], eax
push 0
push 0
push 0
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x24]
push eax
mov eax, esi
mov edx, dword [eax]
call dword [edx + 0x30]
push eax
push 0
push 0
mov eax, dword [ebp - 0x20]
call sub.vcl120.bpl__Graphics_TBitmap_GetCanvas_qqrv
call sub.vcl120.bpl__Graphics_TCanvas_GetHandle_qqrv
push eax
lea eax, [ebp - 0x80]
push eax
mov eax, dword [ebp - 0x24]
call sub.vcl120.bpl__Graphics_TBitmap_GetCanvas_qqrv
call sub.vcl120.bpl__Graphics_TCanvas_GetHandle_qqrv
push eax
call sub.gdi32.dll_PlgBlt
mov eax, dword [ebp - 0x1c]
mov edx, dword [eax]
call dword [edx + 0x20]
test al, al
jne 0x4fa55a
mov eax, dword [ebp - 0x24]
push eax
mov eax, dword [ebp - 0x1c]
mov eax, dword [eax + 0x128]
xor ecx, ecx
xor edx, edx
call fcn.0042fe40
jmp 0x4fa57b
mov eax, dword [ebp - 0x18]
mov edx, dword [eax]
call dword [edx + 0x20]
test al, al
jne 0x4fa57b
mov eax, dword [ebp - 0x24]
push eax
mov eax, dword [ebp - 0x18]
call sub.vcl120.bpl__Graphics_TBitmap_GetCanvas_qqrv
xor ecx, ecx
xor edx, edx
call sub.vcl120.bpl__Graphics_TCanvas_Draw_qqriip17Graphics_TGraphic
mov eax, dword [ebp - 0x20]
call sub.rtl120.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x24]
call sub.rtl120.bpl__System_TObject_Free_qqrv
cmp byte [ebp - 0x3d], 0
je 0x4fa5a8
movzx eax, byte [ebx + 0x96]
push eax
lea edx, [ebp - 0x58]
mov ecx, esi
mov eax, dword [ebp - 0x14]
call fcn.004fae34
jmp 0x4fa5bf
push esi
movzx eax, byte [ebx + 0x96]
push eax
mov ecx, dword [ebp - 0x54]
mov edx, dword [ebp - 0x58]
mov eax, dword [ebp - 0x14]
call sub.vcl120.bpl__Graphics_TCanvas_Draw_qqriip17Graphics_TGraphicuc
cmp dword [ebx + 0x44], 0
je 0x4fa873
cmp dword [ebx + 0x70], 0
je 0x4fa873
cmp dword [ebx + 0x78], 0
je 0x4fa873
lea eax, [ebp - 4]
mov edx, dword [ebx + 0x44]
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0xc]
mov edx, dword [ebx + 0x84]
mov ecx, dword [eax]
call dword [ecx + 8]
mov esi, dword [0x4fa8ec]
movzx eax, byte [ebx + 0x4c]
sub al, 1
jb 0x4fa60f
je 0x4fa61a
dec al
je 0x4fa625
jmp 0x4fa62e
mov eax, dword [0x4fa8f0]
or eax, esi
mov esi, eax
jmp 0x4fa62e
mov eax, dword [0x4fa8f4]
or eax, esi
mov esi, eax
jmp 0x4fa62e
mov eax, dword [0x4fa8f8]
or eax, esi
mov esi, eax
movzx eax, byte [ebx + 0x4e]
sub al, 1
jb 0x4fa63e
je 0x4fa649
dec al
je 0x4fa654
jmp 0x4fa65d
mov eax, dword [0x4fa8fc]
or eax, esi
mov esi, eax
jmp 0x4fa65d
mov eax, dword [0x4fa900]
or eax, esi
mov esi, eax
jmp 0x4fa65d
mov eax, dword [0x4fa904]
or eax, esi
mov esi, eax
movzx eax, byte [ebx + 0x80]
sub al, 1
jb 0x4fa67f
jne 0x4fa690
mov eax, dword [0x4fa908]
or eax, esi
mov edx, dword [0x4fa90c]
not edx
and edx, eax
mov esi, edx
jmp 0x4fa690
mov eax, dword [0x4fa908]
not eax
and eax, esi
or eax, dword [0x4fa90c]
mov esi, eax
movzx eax, byte [ebx + 0x82]
sub al, 1
jb 0x4fa6a7
je 0x4fa6b4
dec al
je 0x4fa6ca
dec al
je 0x4fa6bf
jmp 0x4fa6d3
mov eax, dword [0x4fa910]
not eax
and eax, esi
mov esi, eax
jmp 0x4fa6d3
mov eax, dword [0x4fa914]
or eax, esi
mov esi, eax
jmp 0x4fa6d3
mov eax, dword [0x4fa918]
or eax, esi
mov esi, eax
jmp 0x4fa6d3
mov eax, dword [0x4fa918]
or eax, esi
mov esi, eax
mov edi, dword [ebx + 0x70]
mov eax, dword [ebx + 0x78]
mov dword [ebp - 0x3c], eax
test edi, edi
jge 0x4fa6ec
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x48]
mov edi, dword [eax + 0x48]
sub edi, dword [ebx + 0x60]
cmp dword [ebp - 0x3c], 0
jge 0x4fa701
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x48]
mov eax, dword [eax + 0x4c]
sub eax, dword [ebx + 0x68]
mov dword [ebp - 0x3c], eax
mov eax, dword [ebp - 0x3c]
push eax
lea eax, [ebp - 0x90]
push eax
mov ecx, edi
mov edx, dword [ebx + 0x68]
mov eax, dword [ebx + 0x60]
call sub.rtl120.bpl__Classes_Bounds_qqriiii
mov eax, dword [ebx + 0x58]
push eax
mov eax, dword [ebx + 0x50]
push eax
lea eax, [ebp - 0x90]
push eax
call sub.user32.dll_OffsetRect
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x14]
mov dl, 1
call sub.vcl120.bpl__Graphics_TBrush_SetStyle_qqr20Graphics_TBrushStyle
push esi
lea ecx, [ebp - 4]
lea edx, [ebp - 0x90]
mov eax, dword [ebp - 0x14]
call sub.vcl120.bpl__Graphics_TCanvas_TextRect_qqrr11Types_TRectr20System_UnicodeString50System__Set_t21Graphics_TTextFormats_iuc_0
push esi
lea esi, [ebp - 0x90]
lea edi, [ebp - 0xa0]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
pop esi
mov eax, dword [0x4fa91c]
or eax, esi
push eax
lea ecx, [ebp - 4]
lea edx, [ebp - 0xa0]
mov eax, dword [ebp - 0x14]
call sub.vcl120.bpl__Graphics_TCanvas_TextRect_qqrr11Types_TRectr20System_UnicodeString50System__Set_t21Graphics_TTextFormats_iuc_0
mov eax, dword [ebp - 0x8c]
neg eax
push eax
mov eax, dword [ebp - 0x90]
neg eax
push eax
lea eax, [ebp - 0x90]
push eax
call sub.user32.dll_OffsetRect
mov eax, dword [ebp - 0x9c]
neg eax
push eax
mov eax, dword [ebp - 0xa0]
neg eax
push eax
lea eax, [ebp - 0xa0]
push eax
call sub.user32.dll_OffsetRect
movzx eax, byte [ebx + 0x4c]
cmp al, 2
jne 0x4fa7df
push 0
mov eax, dword [ebp - 0x88]
sub eax, dword [ebp - 0x98]
sar eax, 1
jns 0x4fa7d0
adc eax, 0
push eax
lea eax, [ebp - 0xa0]
push eax
call sub.user32.dll_OffsetRect
jmp 0x4fa7fe
cmp al, 1
jne 0x4fa7fe
push 0
mov eax, dword [ebp - 0x88]
sub eax, dword [ebp - 0x98]
push eax
lea eax, [ebp - 0xa0]
push eax
call sub.user32.dll_OffsetRect
movzx eax, byte [ebx + 0x4e]
cmp al, 2
jne 0x4fa82a
mov eax, dword [ebp - 0x84]
sub eax, dword [ebp - 0x94]
sar eax, 1
jns 0x4fa819
adc eax, 0
push eax
push 0
lea eax, [ebp - 0xa0]
push eax
call sub.user32.dll_OffsetRect
jmp 0x4fa849
cmp al, 1
jne 0x4fa849
mov eax, dword [ebp - 0x84]
sub eax, dword [ebp - 0x94]
push eax
push 0
lea eax, [ebp - 0xa0]
push eax
call sub.user32.dll_OffsetRect
mov eax, dword [ebx + 0x68]
add eax, dword [ebx + 0x58]
push eax
mov eax, dword [ebx + 0x60]
add eax, dword [ebx + 0x50]
push eax
lea eax, [ebp - 0xa0]
push eax
call sub.user32.dll_OffsetRect
lea esi, [ebp - 0xa0]
lea edi, [ebx + 0xf0]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
inc dword [ebp - 0x44]
dec dword [ebp - 0x48]
jne 0x4fa11c
mov eax, dword [ebp - 0x10]
push eax
mov eax, dword [ebp - 0xc]
push eax
call sub.gdi32.dll_RestoreDC
xor edx, edx
mov eax, dword [ebp - 0x14]
call sub.vcl120.bpl__Graphics_TCanvas_SetHandle_qqrp5HDC__
mov eax, dword [ebp - 0x14]
call sub.rtl120.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x18]
call sub.rtl120.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x1c]
call sub.rtl120.bpl__System_TObject_Free_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4fa8cb
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret