İşlemcinin durumunu öğreniyoruz procedure TForm1.FormCreate(Sender: TObject);
var
uretici: array[0..3] of DWord;
x:PChar;
Begin
asm
push ebx
mov eax, 0
dw $A20F
mov DWord ptr uretici, ebx
mov DWord ptr uretici[+4], edx
mov DWord ptr uretici[+8], ecx
pop ebx
end;
uretici[3]:=0;
x:=@uretici;
ShowMessage(string(x));
end;

Alıntıdır. arkadaşlar