// 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;