delphi AntiEmuPEB

procedure AntiEmuPEB();
asm
mov eax, fs:[30h]
mov eax, [eax+$10]
mov eax, [eax+$48]
add eax,$0F
@@inic:
inc eax
mov dl,[eax]
cmp dl,'='
jnz @@inic
end;