if (i = 0) and (messwerte_ok) then
  begin
    for j := 0 to 29 do
      for k := 1 to 14 do begin
        Messwerte_2 [0,k] := 0 ;         //Stelle in der Gesamtsumme von  0 bis 29 sek gespeichert wird
        Messwerte_2 [6,k] := 0 ;         //Stelle in der Maximumwert von  0 bis 29 sek gespeichert wird
        Messwerte_2 [3,k] := 1000 ;       //Stelle in der Minimumwert von  0 bis 29 sek gespeichert wird
      //Messwerte_2 [9,k]                  //Stelle in der Mittelwert  von  0 bis 29 sek gespeichert wird
          for j := 0 to 29 do begin
            if Messwerte_3[j,k]< Messwerte_2[3,k] then               //Minimum von 0 bis 29 Sekunden
               Messwerte_2[3,k]:=Messwerte_3[j,k] ;
            if Messwerte_3[j,k]> Messwerte_2 [6,k] then              //Maximum von 0 bis 29 Sekunden
               Messwerte_2[6,k]:=Messwerte_3 [j,k] ;                 //Gesamtsumme von 0 bis 29 Sekunden
               Messwerte_2[0,k]:=Messwerte_2[0,k] + Messwerte_3[j,k] ;
          end;        //Mittelwert von 0 bis 29 Sekunden
          Messwerte_2[9, k]:=Messwerte_2[0,k]/30 ;
      end;
      WriteDatabase3;
end;