[nazarmyua]

Код:

unit Unit1;

interface

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

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

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Timer1: TTimer;
    XPManifest1: TXPManifest;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);

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

var
  Form1: TForm1;

implementation

{$R *.dfm}
var d0,d1,d2,d3:byte;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Out32(888, d0+d1+d2+d3);
form1.StatusBar1.Panels[0].Text := 'Порт 888:' + inttostr(Inp32(888));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
d0:=1;
Sleep(3000);
d0:=0;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
d1:=2;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
d1:=0;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
d2:=4;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
d2:=0;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
d3:=8;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
d3:=0;
end;

end.

В таком виде он не работаєт при нажатиє на button1