قفل كردن پورت

با سلام;
من مي خواهم با كد يكي از پورتهاي ويندوز مثل پورت 80 را كه براي اينترنت است، ببندم يا غيرفعال كنم. اگه كسي اطلاعي داره لطفا راهنمائي كنه. ممنون.

2 تا مثال براي كار با پورت ها:
procedure WritePort(Port: word; Value: byte);
asm
push word ptr Port
mov al, Value
pop dx
out dx, al
end;

function ReadPort(Port: word): byte;
asm
mov dx, Port
in al, dx
end;

با سلام;
hamedvahediي عزيز، من اين كد رو امتحان كردم ولي Error داد. ولي فكر كنم اگه كار هم مي كرد واسه نوشتن و خواندن از پورت باشه. ولي من مي خوام يه پورتي رو ببندم كه ديگه روي اون پورت نه بتوان داده اي رو نوشت و نه بتوان از اون خواند. به اصلاح lock كنم. مانند همون كاري كه بعضي نرم افزارها حين استفاده از اينترنت پورتها رو هنگام نفوذ هكرها ميبندند و بعد از dis شدن باز مي كنند.
با تشكرات فراوان.

فکر کنم با کامپوننت های indy بشه اینکارو کرد

میتونین از madshi component و madshisocket (اگه اشتباه نکنم) برای این کار استفاده کنین کامپوننتش و سایتش هست تا بخواهی هم مثال ازش فراوونه