function TModul.getGrafik;
begin
  Result := sGrafik[i];
end;

procedure TModul.setHelligkeit(b : tHell);
begin
  sHelligkeit := b;
  if not sUpdating then
    Refresh;
end;

function tModul.getHelligkeit: tHell;
begin
  Result := sHelligkeit;
end;

procedure TModul.setBaudrate(br : tBaudrate);
var
  s : string;
begin
  if not sUpdating then begin
    case sTyp of
      DPDot, DPDotb: begin
        s := cmdDPDotBaud + '0' + StrToHex4(Adresse);
        case br of
          br9600:  s := s + datBaud9600;
          br19200: s := s + datBaud19200;
          br38400: s := s + datBaud38400;
        end;
        s := s + Checksum(s) + #$0d;
        sLastAnswer := Send(s,sWaitForAnswer);
      end;
      DPDis100, DPDis100b: begin
        s := cmdDPDisBaud + StrToHex4(Adresse);
        case br of
          br9600:  s := s + datBaud9600;
          br19200: s := s + datBaud19200;
          br38400: s := s + datBaud38400;
        end;
        s := s + Checksum(s) + #$0d;
        sLastAnswer := Send(s,sWaitForAnswer);
      end;
    end;
  end;
end;

procedure tModul.SetOffset(rot, gruen : String);
var
  s : string;
begin
      s := cmdDPDisOffset + StrToHex4(sAdresse) + Rot;
      if (sTyp = dpDotb) or (sTyp=dpDis100b) then
        s := s + Gruen
      else
        s := s + '00';

      s := s + CheckSum(s) + #$0d;
      sLastAnswer := Send(s,sWaitForAnswer);
end;