Paralle programmering

Jeg skal have sendt en output til parallel porten, men er fuldstændig newbie i Delphi, men jeg har fundet en
addon til Delphi 6 og jeg har Delphi 6 Personal så jeg ved ikke om det kan gøre nogen forskel men i kan se
et eksempel fra hjælpfilen og det jeg har prøvet at lav og se hvad det er galt. Der følger også et eksempel
med som virker men den er for stor til at jeg kan overskue det

Hjæpfil:

Pin Property
Data Type : Boolean
Set or returns an electrical level from the select pin of curren LPT's D25 connector.
Delphi syntax: object.Pin[PinNumber:Integer] [: = value ];

Parameters:
PinNumber - requested pin number (1..25);
value - TRUE to set an electrical level high, or FALSE to set low.

Returns:
FALSE - if an electrican level on requested pin is low
TRUE - if an electrican level on requested pin is high

Remarks:
1. The current LPT must be in corresponding mode - read or write, see ReadMode property.
2. Not all pins are accessible for this operation. Read LPT documentation or run Bits example for more
info.

ReadMode Property
Data Type : Boolean
Allows to switch the data register of current LPT to "read" or "write" mode.
Delphi syntax: object.ReadMode [: = value ];
The settings for value are:
0 - sets the data register to "write only" mode (default).
1 - sets the data register to "read only" mode (not supported by SPP!).

Returns:
FALSE - "write" mode enabled
TRUE  - "read" mode enabled


Mit forslag:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    VicLPT1: TVicLPT;
    procedure VicLPT1LptInterrupt(DataPort, StatusPort: Byte; TimeStampLo,
      TimeStampHi: Cardinal);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.VicLPT1LptInterrupt(DataPort, StatusPort: Byte;
  TimeStampLo, TimeStampHi: Cardinal);
begin
object.Pin[1:Integer] [: = TRUE ];

end.

Fejlmeddelelser:
[Error] Unit1.pas(29): Statement expected but 'OBJECT' found
[Error] Unit1.pas(29): ']' expected but ':' found
[Error] Unit1.pas(29): Expression expected but ':' found
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

Håber det kan hjælpe så i kan hjælpe mig!

Hilsen Bipsen