Gracias por la ayuda, al paecer el problema es por otro lado porque me sigue marcando el mismo error.
Aquí te mando el código que uso para enviar los datos al puerto por medio de un timer, cada segundo.
Procedure mandar_bit(bit:byte);
var
direccion:word;
begin
direccion:=$0378;
asm
mov dx,direccion
mov al,bit
out dx,al
end;
end;
procedure TForm1.btactivarClick(Sender: TObject);
begin
contador:=0;
reloj.enabled:=true;
end;
procedure TForm1.relojTimer(Sender: TObject);
var
bits:byte;
begin
bits:=strtoint(edbits.text);
mandar_bit(bits);
contador:=contador+1;
end;
La versión que tengo de sistema operativo es Windows XP Home Edition Versión 2002 Service Pack 1
Gracias por la ayuda
