Ну ради Delphi я даже готов забыть про вражду :)
Эта статья примитивна, но должна исчерпать тему:
http://www.xakep.ru/...094/default.asp
Когда я этим занимался, я юзал приблизительно такое ( слизано с хакер`ской работы с LPT ):
begin
b:=port[xxx];
asm
mov al,1
mov bl,b
or bl,al
mov b,bl
end;
port[xxx]:=b
end
в их статье xxx=888 ( LPT )
НО! Это в паскале под DOS. XP такого сделать не даст!
ЧЕрвя могуч!