Problem mit paralleler Schnittstelle

[mikro-ViiV]

Ich versuche momentan (bisher leider ohne Erfolg) die parallele Schnittstelle mit Delphi 7 auszulesen.

Mein Code sieht bis jetzt so aus:

Delphi-Quellcode:

unit uLPTTest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

procedure PortOut(Port : Word; Data : Byte); stdcall; external 'io.dll';
function Portin(Port : Word): Byte; stdcall; external 'io.dll';

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
  form1.Edit1.Text:=inttostr(Portin($378));
end;

end.

Die DLL habe ich hier her. Sie befindet sich im selben Ordner, wie die Projektdateien.


Aber irgendwie scheint das ganze nicht zu funktionieren.
Ich erhalte jedesmal den selben Fehler (siehe unten).


Kann mir bitte jemand einen Tipp geben, woran das liegen könnte? Ich komme da nicht weiter.