Delphi - LPT pod XP

Může mi někdo říct, proč tímto nelze zapsat nic na port? Chybovky to nehází, ale úrovně na LPT prostě nezměnim. Díky

procedure Out32(PortAddress:word;Value:byte);
 stdcall;export;external 'inpout32.DLL';
function Inp32(PortAddress:word):byte;
 stdcall;export;external 'inpout32.DLL';

volání:

Out32($378,$1);

a ani nic nepřečtu:

IntToHex(Inp32($378),2)