//------------------- Refresh Helligkeit ------
      if (sHelligkeit.rot>=1) and (sHelligkeit.rot<=199) then begin
        s := CmdDPDotHell+'0' + 'FF'+IntToHex(256-sHelligkeit.rot,2);
        s := s + Checksum(s) + #$0d;
        sLastAnswer := Send(s,sWaitForAnswer);
      end;
    end;
  end;
end;

procedure TModul.StartUpdate;
begin
  sUpdating := true;
end;

procedure TModul.Endupdate;
begin
  Refresh;
  sUpdating := false;
end;

Constructor TModul.Create;
var i : integer;
begin
  inherited;
  sAdresse    := '-1';
  sHelligkeit.rot := 12;
  sHelligkeit.gruen := 12;
  sUpdating   := false;
  for i := 2 to 14 do
    sGrafik[i] := tBitmap.create;
end;

Destructor TModul.Destroy;
var i : integer;
begin
  for i := 2 to 14 do
    sGrafik[i].free;
  inherited;
end;

//######################################## tModule
procedure TModule.ManualSend(s : string);
begin
  sLastAnswer := Send(s,sWaitForAnswer);
end;

procedure tModule.setAnzahl(i : integer);
var
  i2 : integer;
begin
  if not (sAnzahl=i) then begin
    if i=-1 then begin
      for i2:=0 to sModule.count-1 do
        Dispose(sModule.items[i2]);
      sModule.Clear;
    end else begin