procedure TModul.Refresh;
var
  s : string;
begin
  case sTyp of
    DPDis100, DPDis100b: begin
      //------------------- Refresh Text/Farbe ------
      if length(stext.Zahlen)=2 then begin

        s := cmdDPDisAnz + StrToHex4(sAdresse);

        case sTyp of
          DPDis100b:
            case sFarbe of
             fGruen: s := s + '0000' + DPDisZahlenToAnzeige(sText);
             fRot:   s := s + DPDisZahlenToAnzeige(sText) + '0000';
             fGelb:  s := s + DPDisZahlenToAnzeige(sText) 
                            + DPDisZahlenToAnzeige(sText);
            end;
          DPDis100:
            s := s + DPDisZahlenToAnzeige(sText);
        end;
        s := s + CheckSum(s) + #$0d;
        sLastAnswer := Send(s,sWaitForAnswer);
      end;

      //------------------- Refresh Helligkeit ------
      s := cmdDPDisHell + StrToHex4(sAdresse) + IntToHex(sHelligkeit.rot,2);
      if sTyp=DPDis100b then s := s + IntToHex(sHelligkeit.gruen,2)
      else s := s + '00';

      s := s + CheckSum(s) + #$0d;
      sLastAnswer := Send(s,sWaitForAnswer);
    end;
    DPDot, DPDotb: begin
      //------------------- Refresh Text/Farbe ------
      if (lBildIndex>=3) and (lBildIndex<=7) then begin
        s := CmdDPDotBildUpd + IntToStr(lBildIndex) + StrToHex4(sAdresse);

        s := s + DPDotBitmapToAnzeige(sGrafik[lBildIndex]);

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

        s := CmdDPDotBildAnz + IntToStr(lBildIndex) + StrToHex4(sAdresse);
        s := s + Checksum(s) + #$0d;
        sLastAnswer := Send(s,sWaitForAnswer);
      end else if (lBildIndex>=8) and (lBildIndex<=14) then begin
        s := CmdDPDotBildUpd + IntToStr(2) + StrToHex4(sAdresse);

        sGrafik[2] := sGrafik[lBildIndex];

        s := s + DPDotBitmapToAnzeige(sGrafik[2]);
        s := s + Checksum(s) + #$0d;
        sLastAnswer := Send(s,sWaitForAnswer);

        s := CmdDPDotSR2EE + '0' + StrToHex4(sAdresse) + '02'
                           + '0' + IntToStr(lBildIndex-7);
        s := s + Checksum(s) + #$0d;
        sLastAnswer := Send(s,sWaitForAnswer);

        s := CmdDPDotBildAnz + IntToStr(2) + StrToHex4(sAdresse);
        s := s + Checksum(s) + #$0d;
        sLastAnswer := Send(s,sWaitForAnswer);
      end;