Probleme mit LPT "EPrivilege"

[Burgener Sandro]

Hallo Leute

Ich hab ein kleines Prog zur LPT ansteuerung geschrieben.
Ich habe TParPort dazu gebraucht. Das Problem ist, ich erhalte immer eine
Fehlermeldung "EPrivilege" beim ausführen eines Sende oder Empfangbefehls.
Kann mir jemand helfen?

Besten Dank schon mal im Voraus
Sandro

Hier noch der Sourcecode:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, parport, StdCtrls, Spin;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
MainMenu1: TMainMenu;
select: TSpinEdit;
Button1: TButton;
LPT: TParPort;
Datei1: TMenuItem;
Beenden1: TMenuItem;
Port1: TMenuItem;
LPT11: TMenuItem;
LPT21: TMenuItem;
Hilfe1: TMenuItem;
Edit1: TEdit;
Button2: TButton;
procedure Beenden1Click(Sender: TObject);
procedure LPT11Click(Sender: TObject);
procedure LPT21Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
wert: integer;

implementation

{$R *.DFM}

procedure TForm1.Beenden1Click(Sender: TObject);
begin
form1.close;

end;

procedure TForm1.LPT11Click(Sender: TObject);
begin
LPT11.checked:=true;
LPT.LPT_Used:=LPT1;
end;

procedure TForm1.LPT21Click(Sender: TObject);
begin
LPT21.checked:=true;
LPT.LPT_Used:=LPT2;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
LPT.valuesend:=10;
LPT.send;
wert:=select.Value;
wert:=wert div 100;
LPT.valuesend:=wert;
LPT.send;
end;

end.

[Markus Müller]

Hi,<br>
<br>
Es ist eigentlich ganz einfach ... Sie haben nicht genügend Rechte um diese Funktion ausführen zu können.<br>
<br> Wie Sie dieses Problem umgehen können, weiss ich nicht.<br><br>Gruss M.Mülle