Размер динамического массива не через Length

[Пепел Феникса]

нашел еще в Дельфи вот что:

function DynArraySize(a: Pointer): Integer;
asm
        TEST EAX, EAX
        JZ   @@exit
        MOV  EAX, [EAX-4]
@@exit:
end;