Rotina para apagamento da senha do setup

Procedure TForm1.Button1Click(Sender: TObject);
begin
asm
mov ax,2eh
out 70h,ax
mov ax,2fh
out 71h,ax
end;
end;