Function at 0x60d940
Capabilities:
Access peb ldr_data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffd4
push ebx
push esi
push edi
mov ebx, edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
cmp byte [eax + 0x380], 0
je @Controls@TControl@Invalidate$qqrv
mov dl, 1
mov eax, dword [sym.imp.rtl140.bpl__Classes_TList_]
call sub.rtl140.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x18], eax
xor edx, edx
push ebp
push 0x60db0c
push dword fs:[edx]
mov dword fs:[edx], esp
mov eax, dword [ebx + 0x30]
mov dword [ebp - 8], eax
xor eax, eax
mov dword [ebp - 0xc], eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x308]
mov edx, dword [eax]
call dword [edx + 0xc]
mov ebx, eax
dec ebx
test ebx, ebx
jl 0x60d9bf
inc ebx
xor edi, edi
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x308]
mov edx, edi
mov ecx, dword [eax]
call dword [ecx + 0x10]
mov esi, eax
mov eax, dword [esi + 0x30]
cmp eax, dword [ebp - 0xc]
jle 0x60d9bb
mov dword [ebp - 0xc], eax
inc edi
dec ebx
jne 0x60d99e
mov eax, dword [ebp - 0xc]
inc eax
mov dword [ebp - 0x10], eax
mov ebx, dword [ebp - 0x10]
dec ebx
test ebx, ebx
jl 0x60d9dc
inc ebx
xor edx, edx
mov eax, dword [ebp - 0x18]
call sub.rtl140.bpl__Classes_TList_Add_qqrpv
dec ebx
jne 0x60d9cf
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x308]
mov edx, dword [eax]
call dword [edx + 0xc]
mov ebx, eax
dec ebx
test ebx, ebx
jl 0x60da4d
inc ebx
xor edi, edi
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x308]
mov edx, edi
mov ecx, dword [eax]
call dword [ecx + 0x10]
mov esi, eax
cmp byte [esi + 0x2c], 0
je 0x60da49
mov edx, dword [esi + 0x30]
mov eax, dword [ebp - 0x18]
call sub.rtl140.bpl__Classes_TList_Get_qqri
test eax, eax
jne 0x60da49
mov dl, 1
mov eax, dword [@Classes@TStream@SetSize$qqrxj]
call sub.rtl140.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x1c], eax
mov eax, dword [ebp - 0x1c]
push esi
push edi
add esi, 0x1c
lea edi, [eax + 4]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
pop edi
pop esi
mov edx, dword [esi + 0x30]
mov ecx, dword [ebp - 0x1c]
mov eax, dword [ebp - 0x18]
call sub.rtl140.bpl__Classes_TList_Put_qqripv
inc edi
dec ebx
jne 0x60d9f4
mov eax, dword [ebp - 0x10]
sub eax, dword [ebp - 8]
cdq
idiv dword [ebp - 0x10]
mov dword [ebp - 0x14], edx
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x308]
mov edx, dword [eax]
call dword [edx + 0xc]
mov ebx, eax
dec ebx
test ebx, ebx
jl @Controls@TControl@Show$qqrv
inc ebx
xor edi, edi
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x308]
mov edx, edi
mov ecx, dword [eax]
call dword [ecx + 0x10]
mov esi, eax
cmp byte [esi + 0x2c], 0
je 0x60dad1
mov eax, dword [esi + 0x30]
add eax, dword [ebp - 0x14]
cdq
idiv dword [ebp - 0x10]
mov dword [esi + 0x30], edx
push esi
push edi
add esi, 0x1c
lea edi, [ebp - 0x2c]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
pop edi
pop esi
mov edx, dword [esi + 0x30]
mov eax, dword [ebp - 0x18]
call sub.rtl140.bpl__Classes_TList_Get_qqri
mov dword [ebp - 0x1c], eax
mov eax, dword [ebp - 0x1c]
mov eax, dword [eax + 8]
mov dword [ebp - 0x28], eax
mov eax, dword [ebp - 0x1c]
mov eax, dword [eax + 0x10]
mov dword [ebp - 0x20], eax
push edi
lea edi, [esi + 0x1c]
lea esi, [ebp - 0x2c]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
pop edi
inc edi
dec ebx
jne 0x60da72
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push @Controls@TControl@Invalidate$qqrv
mov eax, dword [ebp - 0x18]
mov ebx, dword [eax + 8]
dec ebx
test ebx, ebx
jl 0x60db03
inc ebx
xor edi, edi
mov edx, edi
mov eax, dword [ebp - 0x18]
call sub.rtl140.bpl__Classes_TList_Get_qqri
call sub.rtl140.bpl__System_TObject_Free_qqrv
inc edi
dec ebx
jne 0x60daf0
mov eax, dword [ebp - 0x18]
call sub.rtl140.bpl__System_TObject_Free_qqrv
ret
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret