public
      property Adresse : String read sAdresse write setAdresse;
        //Setzt Adresse; Muß beim initialisieren nach "startupdate" 
        //aufgerufen werden
      property WaitforAnswer : Boolean read sWaitforAnswer 
                                       write sWaitforAnswer; 
        //Soll auf eine Antwort gewartet werden?
      property LastAnswer : String read sLastAnswer; 
        //Hier wird (ggf.) die Antwort gespeichert.
      procedure Broadcast; 
        //Soll an alle gesendet werden?
      property ChangeableAddress : Boolean read sChangeableAddress 
                                           write sChangeableAddress; 
        //Damit Adresse geändert werden kann. Sicherheit!
      property Baudrate: tBaudrate {read sBaudrate} write setBaudrate; 
        //_Setzt_ Baudrate (DPDot); Sollte nur vor tModule verwendet werden.
      property Farbe   : tFarbe  read sFarbe 
                                 write setFarbe;     
        //Setzt Farbe (DPDis100B/DPDotB)
      property Text    : tDPDisText  read sText 
                                     write setText;
        //Setzt Text (DPDis100)
      property Grafik[index : integer]  : tBitmap read getGrafik 
                                                  write setGrafik;
        //Setzt Grafik (DPDot)
      procedure SetOffset(rot,gruen : string);
        //Offset-Incrementierung/Dekrementierung; 
        //Übergeben kann '00', '2B' und '2D' werden
      property Typ     : tTyp    read sTyp write sTyp;           
        //Setzt Modultyp
      property Helligkeit : tHell read getHelligkeit 
                                  write setHelligkeit; 
        //Setzt Helligkeit

      procedure StartUpdate; 
        //Nur Speicher wird bei den Properties verändert
      procedure Endupdate;
        //Modul wird sofort upgedated (Refresh wird direkt aufgerufen!)

      Constructor Create; overload;
      Destructor Destroy; override;
  end;

  tModule = class
    sComport  : string;
    private
      sModule   : tList;
      sAnzahl   : Integer;
      sCompiBaudrate : comport.tBaudRate;
      sModulBaudrate : tBaudrate;
      sChangeableAddress : Boolean;
      sLastAnswer  : String;
      sWaitforAnswer : Boolean;

      procedure setWaitforAnswer(b : boolean);
      procedure setAnzahl(i : integer);
      procedure setModul(i : integer; modul: tModul);
      function  getModul(i:integer) : tModul;
      procedure setChangeableAddress(b : boolean);
      procedure setCompiBaudrate(const Value: tBaudrate);
      procedure setModulBaudrate(const Value: tBaudrate);
      function getCompiBaudrate: tBaudrate;