procedure TForm1.FormCreate(Sender: TObject);
var
res: integer;
begin
res := 0;
asm
  pushad
    MOV EDX,$7C900000
    CMP WORD PTR [EDX],$5A4D
    JNZ @fail
    mov res, 1
    jmp @ending
  @fail:
    mov res, 0
  @ending:
    popad
  end;

if res = 1 then Showmessage('Found!') else Showmessage('Failed  !')
end;