Function at 0x624c5c
Capabilities:
Access peb ldr_data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffdc
push ebx
push esi
push edi
mov esi, dword [ebp + 8]
add esi, 0xfffffffc
xor eax, eax
mov dword [ebp - 8], eax
mov dl, 1
mov eax, dword [sym.imp.vcl120.bpl__Graphics_TBitmap_]
call sub.vcl120.bpl__Graphics_TBitmap__bctr_qqrv
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x624efe
push dword fs:[eax]
mov dword fs:[eax], esp
mov dl, 6
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Graphics_TBitmap_SetPixelFormat_qqr21Graphics_TPixelFormat
mov eax, dword [esi]
mov eax, dword [eax + 0x18]
call sub.vcl120.bpl__Graphics_TPicture_GetHeight_qqrv
push eax
mov eax, dword [esi]
mov eax, dword [eax + 0x18]
call sub.vcl120.bpl__Graphics_TPicture_GetWidth_qqrv
mov edx, eax
mov eax, dword [ebp - 4]
pop ecx
mov ebx, dword [eax]
call dword [ebx + 0x6c]
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x20]
test al, al
je 0x624ccd
call sub.rtl120.bpl__System__TryFinallyExit_qqrv
jmp 0x624f05
push 0xcc0020
push 0
push 0
mov eax, dword [ebp + 8]
mov eax, dword [eax - 8]
call sub.vcl120.bpl__Graphics_TCanvas_GetHandle_qqrv
push eax
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x24]
push eax
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x30]
push eax
push 0
push 0
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Graphics_TBitmap_GetCanvas_qqrv
call sub.vcl120.bpl__Graphics_TCanvas_GetHandle_qqrv
push eax
call sub.gdi32.dll_BitBlt
mov eax, dword [esi]
mov eax, dword [eax + 0x18]
mov eax, dword [eax + 0xc]
push eax
mov eax, dword [ebp - 4]
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 + 8]
mov eax, dword [eax - 8]
mov eax, dword [eax + 0x10]
mov dl, 5
call sub.vcl120.bpl__Graphics_TPen_SetStyle_qqr18Graphics_TPenStyle
mov eax, dword [ebp + 8]
mov eax, dword [eax - 8]
mov eax, dword [eax + 0x14]
mov edx, dword [ebp - 4]
call sub.vcl120.bpl__Graphics_TBrush_SetBitmap_qqrp16Graphics_TBitmap
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x30]
mov dword [ebp - 0x18], eax
fild dword [ebp - 0x18]
fdiv dword [0x624f0c]
mov eax, dword [esi]
fstp dword [eax + 0x50]
wait
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x24]
mov dword [ebp - 0x18], eax
fild dword [ebp - 0x18]
fdiv dword [0x624f0c]
mov eax, dword [esi]
fstp dword [eax + 0x54]
wait
mov eax, dword [esi]
fld dword [eax + 0x50]
fmul st(0)
fstp xword [ebp - 0x24]
wait
mov eax, dword [esi]
fld dword [eax + 0x54]
fmul st(0)
fld xword [ebp - 0x24]
faddp st(1)
add esp, 0xfffffff4
fstp xword [esp]
wait
call sub.rtl120.bpl__System_Sqrt_qqrxg
call sub.rtl120.bpl__System__ROUND_qqrv
mov ebx, eax
mov eax, dword [esi]
mov eax, dword [eax + 0x4c]
mov dword [ebp - 0x14], eax
fld xword [0x624f10]
fmul dword [ebp - 0x14]
fdiv dword [0x624f1c]
add esp, 0xfffffff4
fstp xword [esp]
wait
call sub.rtl120.bpl__System_Cos_qqrxg
mov dword [ebp - 0x18], ebx
fild dword [ebp - 0x18]
fmulp st(1)
mov eax, dword [esi]
fsubr dword [eax + 0x50]
call sub.rtl120.bpl__System__ROUND_qqrv
mov edi, eax
fld xword [0x624f10]
fmul dword [ebp - 0x14]
fdiv dword [0x624f1c]
add esp, 0xfffffff4
fstp xword [esp]
wait
call sub.rtl120.bpl__System_Sin_qqrxg
mov dword [ebp - 0x18], ebx
fild dword [ebp - 0x18]
fmulp st(1)
mov eax, dword [esi]
fsubr dword [eax + 0x54]
call sub.rtl120.bpl__System__ROUND_qqrv
mov dword [ebp - 0xc], eax
fld dword [ebp - 0x14]
mov eax, dword [esi]
fadd dword [eax + 4]
fstp dword [ebp - 0x14]
wait
fld xword [0x624f10]
fmul dword [ebp - 0x14]
fdiv dword [0x624f1c]
add esp, 0xfffffff4
fstp xword [esp]
wait
call sub.rtl120.bpl__System_Cos_qqrxg
mov dword [ebp - 0x18], ebx
fild dword [ebp - 0x18]
fmulp st(1)
mov eax, dword [esi]
fsubr dword [eax + 0x50]
call sub.rtl120.bpl__System__ROUND_qqrv
mov dword [ebp - 0x10], eax
fld xword [0x624f10]
fmul dword [ebp - 0x14]
fdiv dword [0x624f1c]
add esp, 0xfffffff4
fstp xword [esp]
wait
call sub.rtl120.bpl__System_Sin_qqrxg
mov dword [ebp - 0x18], ebx
fild dword [ebp - 0x18]
fmulp st(1)
mov eax, dword [esi]
fsubr dword [eax + 0x54]
call sub.rtl120.bpl__System__ROUND_qqrv
mov ebx, eax
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x30]
add eax, eax
push eax
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x24]
add eax, eax
push eax
mov eax, dword [ebp - 0x10]
push eax
push ebx
push edi
mov eax, dword [ebp - 0xc]
push eax
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x24]
neg eax
push eax
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x30]
mov edx, eax
neg edx
mov eax, dword [ebp + 8]
mov eax, dword [eax - 8]
pop ecx
call sub.vcl120.bpl__Graphics_TCanvas_Pie_qqriiiiiiii
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x624f05
mov eax, dword [ebp + 8]
mov eax, dword [eax - 8]
mov eax, dword [eax + 0x14]
xor edx, edx
call sub.vcl120.bpl__Graphics_TBrush_SetBitmap_qqrp16Graphics_TBitmap
mov eax, dword [ebp + 8]
mov eax, dword [eax - 8]
mov eax, dword [eax + 0x14]
xor edx, edx
call sub.vcl120.bpl__Graphics_TBrush_SetHandle_qqrp8HBRUSH__
cmp dword [ebp - 8], 0
je 0x624ef5
mov eax, dword [ebp - 8]
push eax
call sub.gdi32.dll_DeleteObject
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System_TObject_Free_qqrv
ret
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret