FUNCTION não da certo no Windows-2000 e XP

Ola amigos eu tinha duas funções para acesso direto ao Hardware do computador mas o windows2000 e Xp nao deixa esse tipo de acesso desta forma gostaria de saber como devo proceder para esse sistemas operacionais..


eis as functions para window-95 e 98

procedure SetPort(address, value: Word);
var bValue: Byte;
begin
Application.ProcessMessages;
bValue := trunc(value and 255);
asm
mov DX, address
mov AL, bValue
out DX, AL
end;
end;

function GetPort(address: Word): Word;
var bValue: Byte;
begin
Application.ProcessMessages;
asm
mov DX, address
in AL, DX
mov bValue, AL
end;
result := bValue;
end;