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

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffef0
push ebx
push esi
push edi
xor edx, edx
mov dword [ebp - 4], edx
mov dword [ebp - 8], edx
mov dword [ebp - 0xc], edx
mov dword [ebp - 0x10], edx
mov dword [ebp - 0x18], edx
mov dword [ebp - 0x1c], edx
mov dword [ebp - 0x20], edx
mov dword [ebp - 0x14], edx
mov dword [ebp - 0x24], eax
xor eax, eax
push ebp
push 0x4fa04f
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x24]
mov eax, dword [eax + 0x48]
mov eax, dword [eax + 0x1a0]
call sub.vcl120.bpl__Graphics_TCanvas_GetHandle_qqrv
mov dword [ebp - 0x28], eax
mov ecx, dword [ebp - 0x28]
mov dl, 1
mov eax, dword [0x463340]
call fcn.0046a6fc
mov edx, eax
test edx, edx
je 0x4f944f
sub edx, 0xffffffec
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInte
mov dl, 1
mov eax, dword [0x462440]
call fcn.00468c10
mov edx, eax
test edx, edx
je 0x4f946c
sub edx, 0xffffffec
lea eax, [ebp - 8]
call sub.rtl120.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInte
mov eax, dword [ebp - 0x24]
movzx eax, byte [eax + 0x90]
sub al, 1
jb 0x4f948d
je 0x4f94c3
dec al
je 0x4f94f3
jmp 0x4f9527
mov edx, 1
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 1
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x40]
mov edx, 1
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x28]
mov edx, 2
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x30]
jmp 0x4f9527
mov edx, 3
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 3
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x40]
xor edx, edx
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x28]
xor edx, edx
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x30]
jmp 0x4f9527
mov edx, 2
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x48]
mov edx, 2
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x40]
mov edx, 4
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x28]
mov edx, 4
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x30]
mov eax, dword [ebp - 0x24]
movzx eax, byte [eax + 0x91]
dec al
je 0x4f953b
dec al
je 0x4f954a
jmp 0x4f9557
mov edx, 4
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x30]
jmp 0x4f9557
mov edx, 5
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x30]
mov eax, dword [ebp - 0x24]
mov ebx, dword [eax + 0x88]
cmp ebx, 0x1fffffff
je 0x4f95cc
mov eax, ebx
call fcn.0046465c
mov ecx, eax
mov dl, 1
mov eax, dword [0x46267c]
call fcn.00469818
mov edx, eax
test edx, edx
je 0x4f9586
sub edx, 0xffffffe8
lea eax, [ebp - 0x10]
call sub.rtl120.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInte
lea edx, [ebp - 0x108]
mov eax, dword [ebp - 0x24]
mov eax, dword [eax + 0x48]
mov ecx, dword [eax]
call dword [ecx + 0x44]
lea eax, [ebp - 0x108]
lea edx, [ebp - 0xf8]
call fcn.0046452c
lea ecx, [ebp - 0xf8]
mov edx, dword [ebp - 0x10]
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0x17c]
lea eax, [ebp - 0x10]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
mov eax, dword [ebp - 0x24]
mov eax, dword [eax + 0x8c]
call sub.rtl120.bpl__Classes_TCollection_GetCount_qqrv
dec eax
test eax, eax
jl 0x4f9fee
inc eax
mov dword [ebp - 0x5c], eax
mov dword [ebp - 0x58], 0
mov eax, dword [ebp - 0x24]
mov eax, dword [eax + 0x8c]
mov edx, dword [ebp - 0x58]
call fcn.004f8988
mov ebx, eax
test ebx, ebx
je 0x4f9fe2
cmp byte [ebx + 0x8c], 0
je 0x4f9fe2
cmp dword [ebx + 0xec], 0
je 0x4f9b47
mov eax, dword [ebx + 0xec]
mov edx, dword [eax]
call dword [edx + 0x18]
push eax
mov eax, dword [ebx + 0xec]
mov edx, dword [eax]
call dword [edx + 0x1c]
push eax
lea eax, [ebp - 0x98]
xor ecx, ecx
xor edx, edx
call fcn.00464548
lea eax, [ebp - 0x98]
call fcn.004645f8
test al, al
jne 0x4f9fe2
cmp byte [ebx + 0x90], 0
je 0x4f968a
lea edx, [ebp - 0xf8]
mov eax, dword [ebp - 0x24]
mov eax, dword [eax + 0x48]
mov ecx, dword [eax]
call dword [ecx + 0x44]
lea edx, [ebp - 0xf8]
lea eax, [ebp - 0xa8]
call fcn.00464560
jmp 0x4f96a3
mov eax, dword [ebx + 0x34]
push eax
mov eax, dword [ebx + 0x3c]
push eax
lea eax, [ebp - 0xa8]
mov ecx, dword [ebx + 0x2c]
mov edx, dword [ebx + 0x24]
call fcn.00464548
lea eax, [ebp - 0xa8]
call fcn.004645f8
test al, al
jne 0x4f9fe2
lea edx, [ebp - 0xf8]
mov eax, dword [ebp - 0x24]
mov eax, dword [eax + 0x48]
mov ecx, dword [eax]
call dword [ecx + 0x44]
lea edx, [ebp - 0xf8]
lea eax, [ebp - 0xb8]
call fcn.00464560
lea ecx, [ebp - 0xa8]
lea edx, [ebp - 0xb8]
lea eax, [ebp - 0xb8]
call fcn.0046457c
lea eax, [ebp - 0xb8]
call fcn.004645f8
test al, al
jne 0x4f9fe2
lea edx, [ebp - 0xc]
mov eax, dword [ebx + 0xec]
mov ecx, dword [eax]
call dword [ecx + 0x94]
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx + 0x30]
push eax
lea eax, [ebp - 0x78]
push eax
lea edx, [ebp - 0x98]
mov ecx, dword [0x4fa060]
mov eax, dword [ebp - 0xc]
mov esi, dword [eax]
call dword [esi + 0xa8]
mov edi, dword [ebp - 0x68]
cmp byte [ebx + 0x98], 0
jbe 0x4f9766
movzx eax, byte [ebx + 0x98]
push eax
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx + 0x1c]
push eax
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx + 0x18]
mov edx, eax
mov eax, edi
pop ecx
call fcn.00478c94
cmp byte [ebx + 0x96], 0xff
jne 0x4f977f
cmp dword [ebx + 0xb4], 0x1fffffff
je 0x4f986d
mov eax, dword [ebp - 0x78]
imul dword [ebp - 0x74]
dec eax
test eax, eax
jl 0x4f986d
inc eax
mov dword [ebp - 0x60], eax
xor esi, esi
cmp byte [ebx + 0x96], 0xff
je 0x4f97c6
movzx eax, byte [edi + esi*4 + 3]
movzx edx, byte [ebx + 0x96]
imul edx
mov dword [ebp - 0x10c], eax
fild dword [ebp - 0x10c]
fdiv dword [0x4fa064]
call sub.rtl120.bpl__System__ROUND_qqrv
mov byte [edi + esi*4 + 3], al
cmp dword [ebx + 0xb4], 0x1fffffff
je 0x4f9863
mov eax, dword [ebx + 0xb4]
mov dword [ebp - 0x2d], eax
movzx eax, byte [ebx + 0xbc]
movzx edx, byte [ebp - 0x2d]
movzx ecx, al
sub edx, ecx
movzx ecx, byte [edi + esi*4 + 2]
cmp edx, ecx
jg 0x4f9863
movzx edx, byte [ebp - 0x2d]
movzx ecx, al
add edx, ecx
movzx ecx, byte [edi + esi*4 + 2]
cmp edx, ecx
jb 0x4f9863
movzx edx, byte [ebp - 0x2c]
movzx ecx, al
sub edx, ecx
movzx ecx, byte [edi + esi*4 + 1]
cmp edx, ecx
jg 0x4f9863
movzx edx, byte [ebp - 0x2c]
movzx ecx, al
add edx, ecx
movzx ecx, byte [edi + esi*4 + 1]
cmp edx, ecx
jb 0x4f9863
movzx edx, byte [ebp - 0x2b]
movzx ecx, al
sub edx, ecx
movzx ecx, byte [edi + esi*4]
cmp edx, ecx
jg 0x4f9863
movzx edx, byte [ebp - 0x2b]
movzx eax, al
add edx, eax
movzx eax, byte [edi + esi*4]
cmp edx, eax
jb 0x4f9863
mov byte [edi + esi*4], 0
mov byte [edi + esi*4 + 1], 0
mov byte [edi + esi*4 + 2], 0
mov byte [edi + esi*4 + 3], 0
inc esi
dec dword [ebp - 0x60]
jne 0x4f9794
lea edx, [ebp - 0x78]
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0xac]
mov byte [ebp - 0x29], 0
lea eax, [ebp - 0xa8]
call fcn.00464540
sub eax, dword [ebp - 0xa8]
mov dword [ebp - 0x10c], eax
fild dword [ebp - 0x10c]
fdiv dword [0x4fa068]
fild dword [ebp - 0xa8]
faddp st(1)
fstp dword [ebp - 0x38]
wait
lea eax, [ebp - 0xa8]
call fcn.00464534
sub eax, dword [ebp - 0xa4]
mov dword [ebp - 0x10c], eax
fild dword [ebp - 0x10c]
fdiv dword [0x4fa068]
fild dword [ebp - 0xa4]
faddp st(1)
fstp dword [ebp - 0x34]
wait
fild dword [ebx + 0x24]
fstp dword [ebp - 0x40]
wait
fild dword [ebx + 0x2c]
fstp dword [ebp - 0x3c]
wait
movzx eax, word [ebx + 0x92]
test ax, ax
je 0x4f999e
movsx edx, ax
mov eax, edx
add eax, dword [ebx + 0x34]
mov dword [ebp - 0x10c], eax
fild dword [ebp - 0x10c]
fstp dword [ebp - 0x44]
wait
add edx, dword [ebx + 0x3c]
mov dword [ebp - 0x10c], edx
fild dword [ebp - 0x10c]
fstp dword [ebp - 0x48]
wait
fld dword [ebp - 0x44]
fcomp dword [0x4fa06c]
wait
fnstsw ax
sahf
je 0x4f999e
fld dword [ebp - 0x48]
fcomp dword [0x4fa06c]
wait
fnstsw ax
sahf
je 0x4f999e
fild dword [ebx + 0x34]
fdivr dword [ebp - 0x44]
fstp dword [ebp - 0x44]
wait
fild dword [ebx + 0x3c]
fdivr dword [ebp - 0x48]
fstp dword [ebp - 0x48]
wait
push dword [ebp - 0x38]
push dword [ebp - 0x34]
xor edx, edx
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x3c]
push dword [ebp - 0x44]
push dword [ebp - 0x48]
xor edx, edx
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x40]
fld dword [ebp - 0x38]
fchs
add esp, 0xfffffffc
fstp dword [esp]
wait
fld dword [ebp - 0x34]
fchs
add esp, 0xfffffffc
fstp dword [esp]
wait
xor edx, edx
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov byte [ebp - 0x29], 1
fld dword [ebx + 0x9c]
fcomp dword [0x4fa06c]
wait
fnstsw ax
sahf
je 0x4f99c7
push dword [ebx + 0x9c]
lea edx, [ebp - 0x38]
xor ecx, ecx
mov eax, dword [ebp - 8]
mov esi, dword [eax]
call dword [esi + 0x48]
mov byte [ebp - 0x29], 1
cmp byte [ebp - 0x29], 0
je 0x4f99d8
mov edx, dword [ebp - 8]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x58]
fld dword [ebx + 0xac]
fsub dword [ebx + 0xa4]
fcomp dword [0x4fa070]
wait
fnstsw ax
sahf
jae 0x4f9b18
lea eax, [ebp - 0x98]
push eax
push 0
mov ecx, dword [ebp - 0xc]
mov dl, 1
mov eax, dword [0x4627d8]
call fcn.004698f4
mov edx, eax
test edx, edx
je 0x4f9a15
sub edx, 0xffffffe8
lea eax, [ebp - 0x18]
call sub.rtl120.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInte
cmp byte [ebx + 0x90], 0
je 0x4f9a4a
lea edx, [ebp - 0xf8]
mov eax, dword [ebp - 0x24]
mov eax, dword [eax + 0x48]
mov ecx, dword [eax]
call dword [ecx + 0x44]
lea edx, [ebp - 0xf8]
lea eax, [ebp - 0x88]
call fcn.00464560
jmp 0x4f9a5a
lea esi, [ebp - 0xa8]
lea edi, [ebp - 0x88]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
mov edx, dword [ebp - 0x90]
mov eax, dword [ebp - 0x80]
cmp edx, eax
jne 0x4f9a72
mov ecx, dword [ebp - 0x7c]
cmp ecx, dword [ebp - 0x8c]
je 0x4f9aaf
mov dword [ebp - 0x10c], eax
fild dword [ebp - 0x10c]
mov dword [ebp - 0x110], edx
fild dword [ebp - 0x110]
fdivp st(1)
fstp dword [ebp - 0x44]
wait
fild dword [ebp - 0x7c]
fild dword [ebp - 0x8c]
fdivp st(1)
fstp dword [ebp - 0x48]
wait
push dword [ebp - 0x44]
push dword [ebp - 0x48]
xor edx, edx
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x3c]
push dword [ebp - 0x40]
push dword [ebp - 0x3c]
xor edx, edx
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x38]
fld dword [ebx + 0xa4]
fsub dword [0x4fa074]
add esp, 0xfffffffc
fstp dword [esp]
wait
push dword [ebx + 0xac]
lea ecx, [ebp - 0x88]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x1b8]
fld dword [ebp - 0x40]
fchs
add esp, 0xfffffffc
fstp dword [esp]
wait
fld dword [ebp - 0x3c]
fchs
add esp, 0xfffffffc
fstp dword [esp]
wait
xor edx, edx
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x38]
lea eax, [ebp - 0x18]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
jmp 0x4f9b2c
lea ecx, [ebp - 0xa8]
mov edx, dword [ebp - 0xc]
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x228]
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0xa8]
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x30]
lea eax, [ebp - 0xc]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
cmp dword [ebx + 0x44], 0
je 0x4f9fe2
cmp dword [ebx + 0x70], 0
je 0x4f9fe2
cmp dword [ebx + 0x78], 0
je 0x4f9fe2
mov eax, dword [ebx + 0x84]
call sub.vcl120.bpl__Graphics_TFont_GetHandle_qqrv
push eax
mov ecx, dword [ebp - 0x28]
mov dl, 1
mov eax, dword [0x4616e0]
call fcn.004656cc
mov edx, eax
test edx, edx
je 0x4f9b89
sub edx, 0xffffffec
lea eax, [ebp - 0x1c]
call sub.rtl120.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInte
mov eax, dword [ebx + 0x84]
mov edx, dword [eax + 0x18]
lea eax, [ebp - 0x54]
call fcn.004646b4
lea eax, [ebp - 0x54]
movzx edx, byte [ebx + 0x96]
call fcn.004646a0
mov ecx, dword [ebp - 0x54]
mov dl, 1
mov eax, dword [0x46267c]
call fcn.00469818
mov edx, eax
test edx, edx
je 0x4f9bc9
sub edx, 0xffffffe8
lea eax, [ebp - 0x14]
call sub.rtl120.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInte
push 0
mov ecx, dword [0x4fa078]
mov dl, 1
mov eax, dword [0x46297c]
call fcn.00469c90
mov edx, eax
test edx, edx
je 0x4f9bee
sub edx, 0xffffffec
lea eax, [ebp - 0x20]
call sub.rtl120.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInte
movzx eax, byte [ebx + 0x4c]
sub al, 1
jb 0x4f9c06
je 0x4f9c12
dec al
je 0x4f9c21
jmp 0x4f9c2e
xor edx, edx
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x20]
jmp 0x4f9c2e
mov edx, 2
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x20]
jmp 0x4f9c2e
mov edx, 1
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x20]
movzx eax, byte [ebx + 0x4e]
sub al, 1
jb 0x4f9c3e
je 0x4f9c4a
dec al
je 0x4f9c59
jmp 0x4f9c66
xor edx, edx
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x28]
jmp 0x4f9c66
mov edx, 2
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x28]
jmp 0x4f9c66
mov edx, 1
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x28]
movzx eax, byte [ebx + 0x80]
sub al, 1
jb 0x4f9c8f
jne 0x4f9ca7
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14]
mov edx, dword [0x4fa07c]
not edx
and edx, eax
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x18]
jmp 0x4f9ca7
mov eax, dword [ebp - 0x20]
mov edx, dword [eax]
call dword [edx + 0x14]
mov edx, eax
or edx, dword [0x4fa07c]
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x18]
movzx eax, byte [ebx + 0x82]
sub al, 1
jb 0x4f9cbe
je 0x4f9ccd
dec al
je 0x4f9ceb
dec al
je 0x4f9cdc
jmp 0x4f9cf8
mov edx, 1
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x40]
jmp 0x4f9cf8
mov edx, 5
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x40]
jmp 0x4f9cf8
mov edx, 4
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x40]
jmp 0x4f9cf8
mov edx, 3
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x40]
fild dword [ebx + 0x70]
fstp dword [ebp - 0x4c]
wait
fld dword [ebp - 0x4c]
fcomp dword [0x4fa06c]
wait
fnstsw ax
sahf
jae 0x4f9d2a
mov eax, dword [ebp - 0x24]
mov eax, dword [eax + 0x48]
mov eax, dword [eax + 0x48]
sub eax, dword [ebx + 0x60]
mov dword [ebp - 0x10c], eax
fild dword [ebp - 0x10c]
fstp dword [ebp - 0x4c]
wait
fild dword [ebx + 0x78]
fstp dword [ebp - 0x50]
wait
fld dword [ebp - 0x50]
fcomp dword [0x4fa06c]
wait
fnstsw ax
sahf
jae 0x4f9d5c
mov eax, dword [ebp - 0x24]
mov eax, dword [eax + 0x48]
mov eax, dword [eax + 0x4c]
sub eax, dword [ebx + 0x68]
mov dword [ebp - 0x10c], eax
fild dword [ebp - 0x10c]
fstp dword [ebp - 0x50]
wait
fild dword [ebx + 0x60]
add esp, 0xfffffffc
fstp dword [esp]
wait
fild dword [ebx + 0x68]
add esp, 0xfffffffc
fstp dword [esp]
wait
push dword [ebp - 0x4c]
push dword [ebp - 0x50]
lea eax, [ebp - 0xc8]
call fcn.004643ec
cmp byte [ebx + 0x80], 0
je 0x4f9e49
cmp byte [ebx + 0x4e], 0
je 0x4f9e49
fild dword [ebx + 0x78]
fstp dword [ebp - 0x50]
wait
fld dword [ebp - 0x50]
fcomp dword [0x4fa06c]
wait
fnstsw ax
sahf
jbe 0x4f9e49
mov eax, dword [ebp - 0x24]
mov eax, dword [eax + 0x48]
fild dword [eax + 0x4c]
fstp dword [ebp - 0xbc]
wait
lea eax, [ebp - 0xc8]
push eax
mov eax, dword [ebp - 0x20]
push eax
lea eax, [ebp - 0xd8]
push eax
mov ecx, dword [ebp - 0x1c]
mov edx, dword [ebx + 0x44]
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x1e4]
fld dword [ebp - 0x50]
fcomp dword [ebp - 0xcc]
wait
fnstsw ax
sahf
jb 0x4f9dff
mov eax, dword [ebp - 0x50]
mov dword [ebp - 0xbc], eax
jmp 0x4f9e49
movzx eax, byte [ebx + 0x4e]
dec al
je 0x4f9e0d
dec al
je 0x4f9e24
jmp 0x4f9e3f
fld dword [ebp - 0xcc]
fsub dword [ebp - 0x50]
fild dword [ebx + 0x68]
fsubrp st(1)
fstp dword [ebp - 0xc4]
wait
jmp 0x4f9e3f
fld dword [ebp - 0xcc]
fsub dword [ebp - 0x50]
fdiv dword [0x4fa068]
fild dword [ebx + 0x68]
fsubrp st(1)
fstp dword [ebp - 0xc4]
wait
xor edx, edx
mov eax, dword [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x28]
fild dword [ebx + 0x50]
add esp, 0xfffffffc
fstp dword [esp]
wait
fild dword [ebx + 0x58]
add esp, 0xfffffffc
fstp dword [esp]
wait
lea eax, [ebp - 0xc8]
call fcn.004644f8
fild dword [ebx + 0x70]
fstp dword [ebp - 0x4c]
wait
fld dword [ebp - 0x4c]
fcomp dword [0x4fa06c]
wait
fnstsw ax
sahf
jae 0x4f9e9a
mov eax, dword [ebp - 0x24]
mov eax, dword [eax + 0x48]
mov eax, dword [eax + 0x48]
sub eax, dword [ebx + 0x60]
mov dword [ebp - 0x10c], eax
fild dword [ebp - 0x10c]
fstp dword [ebp - 0x4c]
wait
fild dword [ebx + 0x78]
fstp dword [ebp - 0x50]
wait
fld dword [ebp - 0x50]
fcomp dword [0x4fa06c]
wait
fnstsw ax
sahf
jae 0x4f9ecc
mov eax, dword [ebp - 0x24]
mov eax, dword [eax + 0x48]
mov eax, dword [eax + 0x4c]
sub eax, dword [ebx + 0x68]
mov dword [ebp - 0x10c], eax
fild dword [ebp - 0x10c]
fstp dword [ebp - 0x50]
wait
fild dword [ebx + 0x60]
add esp, 0xfffffffc
fstp dword [esp]
wait
fild dword [ebx + 0x68]
add esp, 0xfffffffc
fstp dword [esp]
wait
push dword [ebp - 0x4c]
push dword [ebp - 0x50]
lea eax, [ebp - 0xe8]
call fcn.004643ec
lea edx, [ebp - 0xe8]
xor ecx, ecx
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x28c]
lea eax, [ebp - 0xc8]
push eax
mov eax, dword [ebp - 0x20]
push eax
mov eax, dword [ebp - 0x14]
push eax
mov ecx, dword [ebp - 0x1c]
mov edx, dword [ebx + 0x44]
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x1dc]
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x2b8]
lea eax, [ebp - 0xc8]
push eax
mov eax, dword [ebp - 0x20]
push eax
lea eax, [ebp - 0xf8]
push eax
mov ecx, dword [ebp - 0x1c]
mov edx, dword [ebx + 0x44]
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x1e4]
lea esi, [ebp - 0xf8]
lea edi, [ebp - 0xc8]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
lea edx, [ebp - 0xc8]
lea eax, [ebp - 0xe8]
call fcn.004644b8
lea eax, [ebp - 0xe8]
call fcn.004643cc
call sub.rtl120.bpl__System__ROUND_qqrv
push eax
lea eax, [ebp - 0xf8]
push eax
lea eax, [ebp - 0xe8]
call fcn.004643dc
call sub.rtl120.bpl__System__ROUND_qqrv
push eax
fld dword [ebp - 0xe4]
call sub.rtl120.bpl__System__ROUND_qqrv
push eax
fld dword [ebp - 0xe8]
call sub.rtl120.bpl__System__ROUND_qqrv
pop edx
pop ecx
call sub.rtl120.bpl__Classes_Rect_qqriiii
lea esi, [ebp - 0xf8]
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]
lea eax, [ebp - 0x1c]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x20]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x14]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
inc dword [ebp - 0x58]
dec dword [ebp - 0x5c]
jne 0x4f95ee
lea eax, [ebp - 8]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4fa056
lea eax, [ebp - 0x20]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x1c]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x18]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0x14]
mov edx, dword [0x4625b4]
mov ecx, 2
call sub.rtl120.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0xc]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 8]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
ret