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

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffe4
push ebx
push esi
test dl, dl
je 0x8159a0
add esp, 0xfffffff0
call sub.rtl140.bpl__System__ClassCreate_qqrp17System_TMetaClasso
mov byte [ebp - 1], dl
mov ebx, eax
mov dword [ebx + 0xbc], ecx
mov dl, 1
mov eax, dword [0x8096ec]
call sub.vcl140.bpl__Graphics_TPen__bctr_qqrv
mov dword [ebx + 0x10], eax
mov dl, 1
mov eax, dword [0x809344]
call sub.vcl140.bpl__Graphics_TPen__bctr_qqrv
mov dword [ebx + 8], eax
mov dl, 1
mov eax, dword [0x809438]
call sub.vcl140.bpl__Graphics_TPen__bctr_qqrv
mov dword [ebx + 0xc], eax
mov dl, 1
mov eax, dword [0x80952c]
call sub.vcl140.bpl__Graphics_TFont__bctr_qqrv
mov dword [ebx + 0x90], eax
mov eax, dword [ebx + 0x10]
mov dl, 5
call sub.vcl140.bpl__Graphics_TPen_SetStyle_qqr18Graphics_TPenStyle
mov eax, dword [ebx + 0x10]
mov edx, 0xff
call sub.vcl140.bpl__Graphics_TPen_SetColor_qqr15Graphics_TColor
mov eax, dword [ebx + 8]
xor edx, edx
call sub.vcl140.bpl__Graphics_TPen_SetColor_qqr15Graphics_TColor
mov eax, dword [ebx + 8]
mov edx, 2
call sub.vcl140.bpl__Graphics_TPen_SetWidth_qqri
mov eax, dword [ebx + 0xc]
mov edx, 0x3e3e3e
call sub.vcl140.bpl__Graphics_TPen_SetColor_qqr15Graphics_TColor
mov eax, dword [ebx + 0xc]
mov edx, 1
call sub.vcl140.bpl__Graphics_TPen_SetWidth_qqri
mov eax, dword [ebx + 0xbc]
mov dword [eax + 0x814], 0x84
mov dword [eax + 0x818], 0x39
mov dword [eax + 0x81c], 0x5e
mov dword [eax + 0x820], 0x5e
mov dword [eax + 0x870], 0x31d
mov dword [eax + 0x874], 0x46a
mov eax, dword [ebx + 0x90]
mov edx, 0x815c84
call sub.vcl140.bpl__Graphics_TFont_SetName_qqrx20System_UnicodeString
mov eax, dword [ebx + 0x90]
mov edx, 8
call sub.vcl140.bpl__Graphics_TFont_SetSize_qqrxi
mov byte [ebx + 0x33], 0
mov dword [ebx + 0x40], 0x14
mov dword [ebx + 0x3c], 0x19
mov dword [ebx + 0x38], 5
mov dword [ebx + 0x34], 0x14
xor eax, eax
mov dword [ebx + 0x48], eax
mov dword [ebx + 0x4c], 0x8c000000
mov word [ebx + 0x50], 0x4004
xor eax, eax
mov dword [ebx + 0x58], eax
mov dword [ebx + 0x5c], 0xf0000000
mov word [ebx + 0x60], 0x4002
xor eax, eax
mov dword [ebx + 0x78], eax
mov dword [ebx + 0x7c], 0xc8000000
mov word [ebx + 0x80], 0x4003
xor eax, eax
mov dword [ebx + 0x68], eax
mov dword [ebx + 0x6c], 0xc8000000
mov word [ebx + 0x70], 0x4003
xor eax, eax
mov dword [ebx + 0x18], eax
mov dword [ebx + 0x1c], 0xd2000000
mov word [ebx + 0x20], 0x4006
xor eax, eax
mov dword [ebx + 0x28], eax
mov dword [ebx + 0x2c], 0x94800000
mov word [ebx + 0x30], 0x4007
mov byte [ebx + 0x32], 7
xor eax, eax
mov dword [ebx + 0xa0], eax
mov dword [ebx + 0xa4], 0xa0000000
mov word [ebx + 0xa8], 0x4002
mov eax, dword [ebx + 0xbc]
mov dl, 4
call fcn.00830470
fstp xword [ebp - 0x1c]
wait
mov esi, dword [ebx + 0xbc]
movzx edx, byte [esi + 0x9c0]
mov eax, esi
call fcn.00830470
fld xword [ebp - 0x1c]
fdivrp st(1)
fstp xword [ebp - 0x10]
wait
fld xword [ebx + 0xa0]
fld xword [ebp - 0x10]
fmulp st(1)
call sub.rtl140.bpl__System__ROUND_qqrv
mov esi, dword [ebx + 0xbc]
mov dword [esi + 0x924], eax
mov byte [esi + 0x921], 1
mov byte [ebx + 0xaa], 1
xor eax, eax
mov dword [ebx + 0xb0], eax
mov dword [ebx + 0xb4], 0xa0000000
mov word [ebx + 0xb8], 0x4002
fld xword [ebx + 0xb0]
fld xword [ebp - 0x10]
fmulp st(1)
call sub.rtl140.bpl__System__ROUND_qqrv
mov esi, dword [ebx + 0xbc]
mov dword [esi + 0x930], eax
mov byte [esi + 0x92c], 1
mov byte [ebx + 0xba], 1
mov byte [ebx + 4], 7
mov byte [ebx + 5], 2
mov byte [ebx + 0x14], 0
mov byte [ebx + 0x15], 1
mov byte [ebx + 0x16], 0
mov byte [ebx + 0x94], 0
mov dl, 1
mov eax, dword [0x8098d4]
call fcn.00815268
mov dword [ebx + 0x98], eax
mov dl, 1
mov eax, dword [0x8098d4]
call fcn.00815268
mov esi, eax
mov dword [ebx + 0x9c], esi
lea eax, [esi + 8]
mov edx, 0x815c9c
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov byte [ebx + 0x82], 1
mov dword [ebx + 0x84], 1
mov dword [ebx + 0x88], 1
mov byte [ebx + 0x8c], 1
mov byte [ebx + 0x8d], 1
mov eax, ebx
cmp byte [ebp - 1], 0
je 0x815c6d
call sub.rtl140.bpl__System__AfterConstruction_qqrp14System_TObject
pop dword fs:[0]
add esp, 0xc
mov eax, ebx
pop esi
pop ebx
mov esp, ebp
pop ebp
ret