Ansteuern des Parallelports

[Stephan N.]

Hallo
ich habe mal den Quelltext etwas umgeschrieben aber jetzt bringt er nur noch fehlermeldungen

Delphi-Quellcode:

Function LesePort( Port : Word ) : Byte;

implementation
Const
  LPT_DataRegister = $378;
  LPT_StatusRegister = $379;
  LPT_KontrollRegister = $37A;

Var
  Value: Byte;
  Port: Word;

function LesePort( Port : Word ) : Byte;


Begin
  // Welches Register des Statusports willst du lesen?
 // Port := LPT_DataRegister

  // Werte holen aus dem Register des Ports (NUR UNTER WINDOWS 9X)
  asm              //erklärt dem Compiler, dass Assembler Code anfängt
    mov dx, Port    //Port = 378h =  die Adresse von LPT 1
    in  al, dx
    Mov Value, AL
  end;


  case Port of
    LPT_DataRegister     : Begin
                             IF Value AND $01 = $01 then result:=1;
                             IF Value AND $02 = $02 then result:=2;
                             IF Value AND $04 = $04 then result:=3;
                             IF Value AND $08 = $08 then result:=4;
                             IF Value AND $16 = $16 then result:=5;
                             IF Value AND $32 = $32 then result:=6;
                             IF Value AND $64 = $64 then result:=7;
                             IF Value AND $128 = $128 then result:=8

  else result:= 0;

end;
end;
end;
end.

in der main unit um die funktion aufzurufen
a := LesePort(???) was mus ich für ? einsetzen???