004AD58B 8AC3 mov al, bl 004AD58D D1E8 shr eax, 1 004AD58F 8BD8 mov ebx, eax 004AD591 4E dec esi 004AD592 85F6 test esi, esi 004AD594 75E2 jnz 004AD578 004AD596 5F pop edi 004AD597 5E pop esi 004AD598 5B pop ebx 004AD599 C3 ret *) end; procedure TMainForm.Proc_004ACA4C(Sender : TObject); begin (* 004ACA4C