Работа портами ввода вывода...

[Novichek5695]

В общем было задание написать программу бегущий огонь (бегущая единица) на тестере LPT порта, программу написал( программу представлю ниже). Теперь задание изменить ее так, чтобы горели например 2 лампочки вместе и через одну бежали. И сделать это же отражение в делфи, на shape.
что изменить в программе и как привязать это к spape?

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

  function Inp32(PortAdr:word): byte; stdcall; external 'inpout32.dll';
  function Out32(PortAdr:word; Data: byte): byte; stdcall; external 'inpout32.dll';

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Timer1: TTimer;
    TrackBar1: TTrackBar;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Dir: boolean;
  Fire: integer=$01;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Dir:=not Dir;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
Data: byte;
begin
Data:=not Fire;
Edit1.Text:=Inttostr(not data);
Out32($378,Data);
If Dir=true then
begin
If Fire=$80 then Fire:=$01
else Fire:=Fire*2; end;

If Dir=false then
begin
If Fire=$01 then Fire:=$80 else Fire:=Fire div 2; end;
end;


procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Timer1.Interval:=TrackBar1.Position;
end;



end.