Code:
...
function cpuid: dword;
const
  ID_BIT = $200000; // EFLAGS ID bit
type
  TCPUID = array[1..4] of Longint;
var
  CPUID: TCPUID;
  I: integer;

  function IsCPUID_Available: Boolean; register;
  asm
  PUSHFD              {direct access to flags no possible, only via stack}
  POP     EAX          {flags to EAX}
  MOV     EDX,EAX      {save current flags}
  XOR     EAX,ID_BIT  {not ID bit}
  PUSH    EAX          {onto stack}
  POPFD                {from stack to flags, with not ID bit}
  PUSHFD              {back to stack}
  POP     EAX          {get back to EAX}
  XOR     EAX,EDX      {check if ID bit affected}
  JZ      @exit        {no, CPUID not availavle}
  MOV     AL,True      {Result=True}
  @exit:
  end;

    function GetCPUID: TCPUID; assembler; register;
    asm
    PUSH    EBX         {Save affected register}
    PUSH    EDI
    MOV     EDI,EAX     {@Resukt}
    MOV     EAX,1
    DW      $A20F       {CPUID Command}
    STOSD                {CPUID[1]}
    MOV     EAX,EBX
    STOSD               {CPUID[2]}
    MOV     EAX,ECX
    STOSD               {CPUID[3]}
    MOV     EAX,EDX
    STOSD               {CPUID[4]}
    POP     EDI          {Restore registers}
    POP     EBX
    end;

begin
  for I := Low(CPUID) to High(CPUID) do CPUID[I] := -1;
  if IsCPUID_Available then CPUID := GetCPUID;
  Result := 10000 * CPUID[1] + CPUID[4];
end;
...