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

Disassembly:
push ebp
mov ebp, esp
push ecx
push ebx
push esi
test dl, dl
je 0x819bfe
add esp, 0xfffffff0
call sub.rtl140.bpl__System__ClassCreate_qqrp17System_TMetaClasso
mov byte [ebp - 1], dl
mov ebx, eax
mov dword [ebx + 0xa4], ecx
mov byte [ebx + 4], 1
mov byte [ebx + 5], 1
mov byte [ebx + 6], 1
mov byte [ebx + 7], 2
mov byte [ebx + 8], 1
xor eax, eax
mov dword [ebx + 0x10], eax
mov dword [ebx + 0x14], 0xd2000000
mov word [ebx + 0x18], 0x4006
xor eax, eax
mov dword [ebx + 0x20], eax
mov dword [ebx + 0x24], 0x94800000
mov word [ebx + 0x28], 0x4007
movzx eax, byte [0x819e68]
mov byte [ebx + 0x2a], al
mov dl, 1
mov eax, dword [0x8095f8]
call sub.vcl140.bpl__Graphics_TPen__bctr_qqrv
mov esi, eax
mov dword [ebx + 0x4c], esi
mov eax, esi
mov edx, 0xc0c0c0
call sub.vcl140.bpl__Graphics_TPen_SetColor_qqr15Graphics_TColor
mov eax, dword [ebx + 0x4c]
mov dl, 2
call sub.vcl140.bpl__Graphics_TPen_SetStyle_qqr18Graphics_TPenStyle
mov byte [ebx + 0x49], 0
mov dword [ebx + 0x2c], 3
mov byte [ebx + 0x48], 0
mov byte [ebx + 0x3c], 1
xor eax, eax
mov dword [ebx + 0x40], eax
mov dword [ebx + 0x44], 0xbb8
mov byte [ebx + 0x30], 1
lea eax, [ebx + 0x38]
mov edx, 0x819e78
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov dl, 1
mov eax, dword [sym.imp.vcl140.bpl__Graphics_TFont_]
call sub.vcl140.bpl__Graphics_TFont__bctr_qqrv
mov esi, eax
mov dword [ebx + 0x34], esi
mov edx, 0x819e90
mov eax, esi
call sub.vcl140.bpl__Graphics_TFont_SetName_qqrx20System_UnicodeString
mov edx, 0xa
mov eax, esi
call sub.vcl140.bpl__Graphics_TFont_SetSize_qqrxi
xor edx, edx
mov eax, esi
call sub.vcl140.bpl__Graphics_TFont_SetColor_qqrx15Graphics_TColor
movzx edx, byte [0x819e9c]
mov eax, esi
call sub.vcl140.bpl__Graphics_TFont_SetStyle_qqrx47System__Set_t19Graphics_TFontStyle_iuc_0_iuc_3_
mov byte [ebx + 0xa2], 0
mov dword [ebx + 0x58], 0x42c80000
mov byte [ebx + 0x5c], 1
mov eax, dword [ebx + 0x58]
mov dword [ebx + 0x50], eax
movzx eax, byte [ebx + 0x5c]
mov byte [ebx + 0x54], al
mov dword [ebx + 0x60], 0x42c80000
mov byte [ebx + 0x64], 0
mov dword [ebx + 0x68], 0x42c80000
mov byte [ebx + 0x6c], 2
mov byte [ebx + 0xa0], 1
mov byte [ebx + 0xa1], 0
lea eax, [ebx + 0x70]
xor edx, edx
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov dl, 1
mov eax, dword [0x809268]
call sub.vcl140.bpl__Graphics_TFont__bctr_qqrv
mov esi, eax
mov dword [ebx + 0x74], esi
mov eax, esi
mov edx, 0x9a480b
call sub.vcl140.bpl__Graphics_TFont_SetColor_qqrx15Graphics_TColor
mov dl, 1
mov eax, dword [0x809080]
call sub.vcl140.bpl__Graphics_TPen__bctr_qqrv
mov esi, eax
mov dword [ebx + 0x78], esi
mov eax, esi
mov edx, 0xca784b
call sub.vcl140.bpl__Graphics_TPen_SetColor_qqr15Graphics_TColor
mov eax, dword [ebx + 0x78]
mov dl, 5
call sub.vcl140.bpl__Graphics_TPen_SetStyle_qqr18Graphics_TPenStyle
mov dword [ebx + 0x7c], 0xf3e2d5
lea eax, [ebx + 0x80]
mov edx, 0x819eac
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov dl, 1
mov eax, dword [0x809268]
call sub.vcl140.bpl__Graphics_TFont__bctr_qqrv
mov esi, eax
mov dword [ebx + 0x84], esi
mov eax, esi
mov edx, 0x9a480b
call sub.vcl140.bpl__Graphics_TFont_SetColor_qqrx15Graphics_TColor
mov dl, 1
mov eax, dword [0x80916c]
call sub.vcl140.bpl__Graphics_TPen__bctr_qqrv
mov esi, eax
mov dword [ebx + 0x88], esi
mov eax, esi
mov edx, 0xca784b
call sub.vcl140.bpl__Graphics_TPen_SetColor_qqr15Graphics_TColor
mov eax, dword [ebx + 0x88]
mov dl, 2
call sub.vcl140.bpl__Graphics_TPen_SetStyle_qqr18Graphics_TPenStyle
mov dword [ebx + 0x8c], 0xf3e2d5
lea eax, [ebx + 0x90]
mov edx, 0x819ec8
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov dl, 1
mov eax, dword [0x809268]
call sub.vcl140.bpl__Graphics_TFont__bctr_qqrv
mov esi, eax
mov dword [ebx + 0x94], esi
mov eax, esi
mov edx, 0x9a480b
call sub.vcl140.bpl__Graphics_TFont_SetColor_qqrx15Graphics_TColor
mov dl, 1
mov eax, dword [0x80916c]
call sub.vcl140.bpl__Graphics_TPen__bctr_qqrv
mov esi, eax
mov dword [ebx + 0x98], esi
mov eax, esi
mov edx, 0xca784b
call sub.vcl140.bpl__Graphics_TPen_SetColor_qqr15Graphics_TColor
mov eax, dword [ebx + 0x98]
mov dl, 2
call sub.vcl140.bpl__Graphics_TPen_SetStyle_qqr18Graphics_TPenStyle
mov dword [ebx + 0x9c], 0xf3e2d5
mov eax, ebx
cmp byte [ebp - 1], 0
je 0x819e5f
call sub.rtl140.bpl__System__AfterConstruction_qqrp14System_TObject
pop dword fs:[0]
add esp, 0xc
mov eax, ebx
pop esi
pop ebx
pop ecx
pop ebp
ret