LPT1 Steuerung von LEDs

[3242]

hallo flomei,
möchte mit einem Source Code von dir den Parallelport ansteuern....

Delphi-Quellcode:

procedure PortOut(x:byte); 
begin 
  asm           //erklärt dem Compiler, dass Assembler Code anfängt 
   mov dx,378h //378h ist die Adresse von LPT 1 
   mov al,x    //x müssen wir noch einen Wert zuweisen 
   out dx,al 
  end; 
end;


Source:
procedure TEureForm.ZBButtonClick(Sender: TObject); assembler; 
begin 
  port(1); //hier weisen wir x einen Wert zu (siehe Tabelle unten) 
end;

Das Problem ist, bei mir kommt bei " port(1) " immer die Fehlermeldung;
Operator oder Semikolon fehlt.
Kannst du mir evtl. sagen, was ich falsch gemacht habe?!?

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]