hmm, ich finde hier einfach keinen fehler 
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, minilab;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button3: TButton;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;var
Form1: TForm1;
minilab: Tminilab;
implementation{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
beginminilab.portB :=128;
if minilab.porta=128 then
label5.font.color:=cllime;
if minilab.portc=128 then
label14.font.color:=cllime;
minilab.portB :=64;
if minilab.portA=64 then
label6.font.color:=cllime;
if minilab.portC=64 then
label15.font.color:=cllime;
minilab.portB :=32;
if minilab.portA=32 then
label7.font.color:=cllime;
if minilab.portC=32 then
label16.font.color:=cllime;
minilab.portB :=16;
if minilab.portA=16 then
label8.font.color:=cllime;
if minilab.portC=16 then
label17.font.color:=cllime;
minilab.portB :=8;
if minilab.portA=8 then
label9.font.color:=cllime;
if minilab.portC=8 then
label18.font.color:=cllime;
minilab.portB :=4;
if minilab.portA=4 then
label10.font.color:=cllime;
if minilab.portc=4 then
label19.font.color:=cllime;
minilab.portB :=2;
if minilab.portA=2 then
label11.font.color:=cllime;
if minilab.portc=2 then
label20.font.color:=cllime;
minilab.portB :=1;
if minilab.portA=1 then
label12.font.color:=cllime;
if minilab.portC=1 then
label21.font.color:=cllime;minilab.portb:=0;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
label5.font.color:=clred;
label6.font.color:=clred;
label7.font.color:=clred;
label8.font.color:=clred;
label9.font.color:=clred;
label10.font.color:=clred;
label11.font.color:=clred;
label12.font.color:=clred;
label14.font.color:=clred;
label15.font.color:=clred;
label16.font.color:=clred;
label17.font.color:=clred;
label18.font.color:=clred;
label19.font.color:=clred;
label20.font.color:=clred;
label21.font.color:=clred;end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;initialization
minilab := Tminilab.create(1);
minilab.portB := 0;
finalization
minilab.portB := 0;
minilab.free;end.
hmm....
hmmmmm.........
