Function at 0x40c758
Capabilities:
Link many functions at runtime

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x6f
push 0
push 0
dec ecx
jne 0x40c760
push ecx
push ebx
push esi
push edi
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x40cdb7
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [ebp - 5], 0
call sub.rtl100.bpl__System_Randomize_qqrv
mov byte [ebp - 0x105], 0
mov ebx, 4
lea eax, [ebp - 0x20c]
lea edx, [ebp - 0x105]
call sub.rtl100.bpl__System__LStrFromString_qqrr17System_AnsiStringrx28System__SmallString_iuc_255_
lea eax, [ebp - 0x20c]
push eax
mov eax, 0xff
call sub.rtl100.bpl__System_Random_qqrxi
lea edx, [ebp - 0x210]
call sub.rtl100.bpl__Sysutils_IntToStr_qqri
mov edx, dword [ebp - 0x210]
pop eax
call sub.rtl100.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x20c]
lea eax, [ebp - 0x105]
mov ecx, 0xff
call sub.rtl100.bpl__System__LStrToString_qqrv
dec ebx
jne 0x40c791
lea eax, [ebp - 0x214]
lea edx, [ebp - 0x105]
call sub.rtl100.bpl__System__LStrFromString_qqrr17System_AnsiStringrx28System__SmallString_iuc_255_
lea eax, [ebp - 0x214]
mov edx, 0x40cdd4
call sub.rtl100.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x214]
lea eax, [ebp - 0x105]
mov ecx, 0xff
call sub.rtl100.bpl__System__LStrToString_qqrv
mov ebx, 2
lea eax, [ebp - 0x218]
lea edx, [ebp - 0x105]
call sub.rtl100.bpl__System__LStrFromString_qqrr17System_AnsiStringrx28System__SmallString_iuc_255_
lea eax, [ebp - 0x218]
push eax
mov eax, 0xa
call sub.rtl100.bpl__System_Random_qqrxi
lea edx, [ebp - 0x21c]
call sub.rtl100.bpl__Sysutils_IntToStr_qqri
mov edx, dword [ebp - 0x21c]
pop eax
call sub.rtl100.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x218]
lea eax, [ebp - 0x105]
mov ecx, 0xff
call sub.rtl100.bpl__System__LStrToString_qqrv
dec ebx
jne 0x40c81f
lea eax, [ebp - 0x220]
lea edx, [ebp - 0x105]
call sub.rtl100.bpl__System__LStrFromString_qqrr17System_AnsiStringrx28System__SmallString_iuc_255_
lea eax, [ebp - 0x220]
mov edx, 0x40cdd4
call sub.rtl100.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x220]
lea eax, [ebp - 0x105]
mov ecx, 0xff
call sub.rtl100.bpl__System__LStrToString_qqrv
mov ebx, 4
lea eax, [ebp - 0x224]
lea edx, [ebp - 0x105]
call sub.rtl100.bpl__System__LStrFromString_qqrr17System_AnsiStringrx28System__SmallString_iuc_255_
lea eax, [ebp - 0x224]
push eax
mov eax, 0x400
call sub.rtl100.bpl__System_Random_qqrxi
lea edx, [ebp - 0x228]
call sub.rtl100.bpl__Sysutils_IntToStr_qqri
mov edx, dword [ebp - 0x228]
pop eax
call sub.rtl100.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x224]
lea eax, [ebp - 0x105]
mov ecx, 0xff
call sub.rtl100.bpl__System__LStrToString_qqrv
dec ebx
jne 0x40c8ad
lea edx, [ebp - 0x330]
mov eax, dword [ebp - 4]
call fcn.0040c23c
lea edx, [ebp - 0x330]
lea eax, [ebp - 0x230]
call sub.rtl100.bpl__System__LStrFromString_qqrr17System_AnsiStringrx28System__SmallString_iuc_255_
push dword [ebp - 0x230]
push 0x40cde0
lea eax, [ebp - 0x334]
push eax
mov eax, 0x40cde4
mov dword [ebp - 0x344], eax
mov byte [ebp - 0x340], 4
lea eax, [ebp - 0x105]
mov dword [ebp - 0x33c], eax
mov byte [ebp - 0x338], 4
lea edx, [ebp - 0x344]
mov ecx, 1
mov eax, 0x40cdf0
call sub.rtl100.bpl__Sysutils_Format_qqrx17System_AnsiStringpx14System_TVarRecxi
push dword [ebp - 0x334]
push 0x40ce08
lea eax, [ebp - 0x22c]
mov edx, 4
call sub.rtl100.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x22c]
mov eax, 0x420020
mov ecx, 0xff
call sub.rtl100.bpl__System__LStrToString_qqrv
lea eax, [ebp - 0x105]
mov edx, 0x420020
call sub.rtl100.bpl__System__PStrCpy_qqrp28System__SmallString_iuc_255_t1
xor eax, eax
push ebp
push 0x40cae6
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0x348]
lea edx, [ebp - 0x105]
call sub.rtl100.bpl__System__LStrFromString_qqrr17System_AnsiStringrx28System__SmallString_iuc_255_
mov eax, dword [ebp - 0x348]
call sub.rtl100.bpl__Sysutils_FileCreate_qqrx17System_AnsiString
mov dword [0x420120], eax
cmp dword [0x420120], 0xffffffff
je 0x40ca05
mov edx, 0x4133ac
mov ecx, 0xc400
mov eax, dword [0x420120]
call sub.rtl100.bpl__Sysutils_FileWrite_qqripxvui
mov eax, dword [0x420120]
call sub.rtl100.bpl__Sysutils_FileClose_qqri
jmp 0x40cadc
lea eax, [ebp - 0x34c]
push eax
lea edx, [ebp - 0x330]
mov eax, dword [ebp - 4]
call fcn.0040c23c
lea eax, [ebp - 0x330]
mov dword [ebp - 0x354], eax
mov byte [ebp - 0x350], 4
lea eax, [ebp - 0x354]
push eax
push 0x258
lea eax, [ebp - 0x358]
push eax
call sym.VisualizadorTabelas.exe_LeMensagens
mov eax, dword [ebp - 0x358]
xor ecx, ecx
pop edx
call sub.rtl100.bpl__Sysutils_Format_qqrx17System_AnsiStringpx14System_TVarRecxi
mov edx, dword [ebp - 0x34c]
lea eax, [ebp - 0x205]
mov ecx, 0xff
call sub.rtl100.bpl__System__LStrToString_qqrv
lea eax, [ebp - 0x35c]
lea edx, [ebp - 0x205]
call sub.rtl100.bpl__System__LStrFromString_qqrr17System_AnsiStringrx28System__SmallString_iuc_255_
lea eax, [ebp - 0x35c]
mov edx, 0x40ce08
call sub.rtl100.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x35c]
lea eax, [ebp - 0x205]
mov ecx, 0xff
call sub.rtl100.bpl__System__LStrToString_qqrv
push 0x10
push 8
lea eax, [ebp - 0x360]
push eax
call sym.VisualizadorTabelas.exe_LeMensagens
mov eax, dword [ebp - 0x360]
call sub.rtl100.bpl__System__LStrToPChar_qqrx17System_AnsiString
mov ecx, eax
lea edx, [ebp - 0x204]
mov eax, dword [sym.imp.vcl100.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl100.bpl__Forms_TApplication_MessageBox_qqrpxct1i
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x40cd6e
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x40caf0
lea eax, [ebp - 0x364]
lea edx, [ebp - 0x105]
call sub.rtl100.bpl__System__LStrFromString_qqrr17System_AnsiStringrx28System__SmallString_iuc_255_
mov eax, dword [ebp - 0x364]
call sub.rtl100.bpl__Sysutils_FileExists_qqrx17System_AnsiString
test al, al
jne 0x40cbe3
lea eax, [ebp - 0x368]
push eax
lea edx, [ebp - 0x330]
mov eax, dword [ebp - 4]
call fcn.0040c23c
lea eax, [ebp - 0x330]
mov dword [ebp - 0x354], eax
mov byte [ebp - 0x350], 4
lea eax, [ebp - 0x354]
push eax
push 0x258
lea eax, [ebp - 0x36c]
push eax
call sym.VisualizadorTabelas.exe_LeMensagens
mov eax, dword [ebp - 0x36c]
xor ecx, ecx
pop edx
call sub.rtl100.bpl__Sysutils_Format_qqrx17System_AnsiStringpx14System_TVarRecxi
mov edx, dword [ebp - 0x368]
lea eax, [ebp - 0x205]
mov ecx, 0xff
call sub.rtl100.bpl__System__LStrToString_qqrv
lea eax, [ebp - 0x370]
lea edx, [ebp - 0x205]
call sub.rtl100.bpl__System__LStrFromString_qqrr17System_AnsiStringrx28System__SmallString_iuc_255_
lea eax, [ebp - 0x370]
mov edx, 0x40ce08
call sub.rtl100.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x370]
lea eax, [ebp - 0x205]
mov ecx, 0xff
call sub.rtl100.bpl__System__LStrToString_qqrv
push 0x10
push 8
lea eax, [ebp - 0x374]
push eax
call sym.VisualizadorTabelas.exe_LeMensagens
mov eax, dword [ebp - 0x374]
call sub.rtl100.bpl__System__LStrToPChar_qqrx17System_AnsiString
mov ecx, eax
lea edx, [ebp - 0x204]
mov eax, dword [sym.imp.vcl100.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl100.bpl__Forms_TApplication_MessageBox_qqrpxct1i
jmp 0x40cd6e
lea ebx, [ebp - 0x104]
lea eax, [ebp - 0x378]
mov edx, ebx
call sub.rtl100.bpl__System__LStrFromPChar_qqrr17System_AnsiStringpc
mov eax, dword [ebp - 0x378]
mov edx, 0x8000
call sub.rtl100.bpl__Sysutils_SafeLoadLibrary_qqrx17System_AnsiStringui
mov esi, eax
mov eax, dword [ebp - 4]
mov dword [eax + 0x800], esi
test esi, esi
jne 0x40cc3d
push 0x137
lea eax, [ebp - 0x37c]
push eax
call sym.VisualizadorTabelas.exe_LeMensagens
mov ecx, dword [ebp - 0x37c]
mov dl, 1
mov eax, dword [sym.imp.rtl100.bpl__Sysutils_Exception_]
call sub.rtl100.bpl__Sysutils_Exception__bctr_qqrx17System_AnsiString
call sub.rtl100.bpl__System__RaiseExcept_qqrv
mov eax, dword [ebp - 4]
mov ebx, dword [eax + 0x800]
test ebx, ebx
je 0x40cd6e
push 0x40ce0c
push ebx
call sub.kernel32.dll_GetProcAddress
mov edx, dword [ebp - 4]
mov dword [edx + 0x804], eax
push 0x40ce14
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x800]
push eax
call sub.kernel32.dll_GetProcAddress
mov edx, dword [ebp - 4]
mov dword [edx + 0x808], eax
push 0x40ce1c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x800]
push eax
call sub.kernel32.dll_GetProcAddress
mov edx, dword [ebp - 4]
mov dword [edx + 0x80c], eax
push 0x40ce2c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x800]
push eax
call sub.kernel32.dll_GetProcAddress
mov edx, dword [ebp - 4]
mov dword [edx + 0x810], eax
push 0x40ce3c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x800]
push eax
call sub.kernel32.dll_GetProcAddress
mov edx, dword [ebp - 4]
mov dword [edx + 0x814], eax
push 0x40ce4c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x800]
push eax
call sub.kernel32.dll_GetProcAddress
mov edx, dword [ebp - 4]
mov dword [edx + 0x818], eax
push 0x40ce5c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x800]
push eax
call sub.kernel32.dll_GetProcAddress
mov edx, dword [ebp - 4]
mov dword [edx + 0x81c], eax
mov eax, dword [ebp - 4]
cmp dword [eax + 0x804], 0
je 0x40cd6a
mov eax, dword [ebp - 4]
cmp dword [eax + 0x808], 0
je 0x40cd6a
mov eax, dword [ebp - 4]
cmp dword [eax + 0x80c], 0
je 0x40cd6a
mov eax, dword [ebp - 4]
cmp dword [eax + 0x810], 0
je 0x40cd6a
mov eax, dword [ebp - 4]
cmp dword [eax + 0x814], 0
je 0x40cd6a
mov eax, dword [ebp - 4]
cmp dword [eax + 0x81c], 0
je 0x40cd6a
mov eax, dword [ebp - 4]
cmp dword [eax + 0x818], 0
je 0x40cd6a
mov byte [ebp - 5], 1
jmp 0x40cd6e
mov byte [ebp - 5], 0
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x40cdbe
lea eax, [ebp - 0x37c]
mov edx, 0xa
call sub.rtl100.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x34c]
mov edx, 2
call sub.rtl100.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x334]
call sub.rtl100.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x230]
mov edx, 0xa
call sub.rtl100.bpl__System__LStrArrayClr_qqrpvi
ret