Delphi: For-Schleifen und Timer

Hallo Leute ich habe folgendes Problem:
Ich muss ein Programm in Delphi schreiben, um  mit dessen Hilfe
Mittel-,Min- und Maxwerte bei der Abgasmessung zu finden. Einmal sollen
min, max, mid innerhalb einer Minute gebildet werden und zweitens sollen
mid, min, max je halbe Minute berechnet werden.
Ich habe folgende Prozedur geschrieben:
Globalbe Variablen sind:
Messwerte_3 : array [0..29, 1..14] of Extended;        // 0-29 sek
 Messwerte_2  : array [0..11, 1..14] of Extended;        // min, max,
mid
Insgesamt habe ich 14 Messwerte(O2, NO2, NOx… usw.) in einer Messung

procedure TForm1.Timer2Timer(Sender: TObject);
var
   i: integer;
   j: integer;
   k: integer;
   temp : extended;
begin
Edit1.Text:= TimeToStr(now);
i:= StrToInt(copy(TimeToStr(now),7,2));
    // Stelle in der O2 angezeigt wird

 if tryStrToFloat (Form1.eO2.Text, temp) then
//wenn es gelingt eine Gleitkommazahl zu erstellen
//dann wird vom Form1.eO2.Text der Wert in temp gespeichert
   Messwerte_3[j, 1] := temp
   else
  //wenn nicht dann ist temp 0
   Messwerte_3[j, 1] := 0 ;

    if tryStrToFloat (Form1.eTGas.Text,temp) then
    Messwerte_3[j, 2] := temp
    else
    Messwerte_3[j, 2] := 0 ;
.
.
.
    if tryStrToFloat (Form1.eNOx_2.Text, temp)
    Messwerte_3[j, 14]:= temp
    else
    Messwerte_3[j, 14]:= 0;

if messung_ok_counter < 60 then
      inc (messung_ok_counter) ;
//Mit Hilfe dieser Anweisung  möchte ich, dass das Programm eine Minut
leerläuft
//damit die Messung ab 0 beginnt
 if messung_ok_counter = 60 then
      messwerte_ok := true ;

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;

end;

Irgendwie funktioniert das hier nicht!!!
Wenn mir jemand helfen könnte, wäre es super!
Ich kenne Delphi erst seit 2 Monaten, d.h. die Kenntnisse gehen Richtung
0.
Wäre euch sehr dankbar

Tatjana