problem mit schleife

[herrentor]

ich hab folgendes problem mit einer schleife.
beispiel: in zeile eins ist aus der combobox rechteck ausgewählt, es werden also die zellen in zeile 1 in der spalte 3 un 4 auf länge a bzw. höhe b umgestellt. soweit noch kein problem. jetzt gibt man zahlen in die zellen ein. dann geht man in die nächste zeile und wählt wieder etwas aus. jetzt werden die zellen in zeile 2 wie gewollt beschrieben, allerdings werden in zeile 1 die eingegebenen zahlen wieder von länge a und höhe b überschrieben. es ist natürlich logisch das das passiert, meine frage deshalb: wie kann ich umgehen, dass zeile 1 wieder überschrieben wird?

Code:

For i:=1 to 6 do                                     // von Zeile 1 bis 6 mache
     begin

      if Tab.Cells[1,i] = ComboBox1.Items[0] then    // falls nichts aktiviert ist
       begin
        Tab.Cells[3,i]:=('0');                       // ändern auf '0'
        Tab.Cells[4,i]:=('0');                       // ändern auf '0'
       end;

      if Tab.Cells[1,i] = ComboBox1.Items[1] then    // falls Rechteck aktiviert ist
       begin
        Tab.Cells[3,i]:=('Länge A');                 // ändern auf 'Länge A'
        Tab.Cells[4,i]:=('Höhe B');                  // ändern auf 'Höhe B'
        Tab.Cells[2,i]:=('+');                       // Vorzeichen auf + stellen
       end;

      if Tab.Cells[1,i] = ComboBox1.Items[2] then    // falls Dreieck aktiviert ist
       begin
        Tab.Cells[3,i]:=('Länge A');                 // ändern auf 'Länge A'
        Tab.Cells[4,i]:=('Höhe B');                  // ändern auf 'Höhe B'
        Tab.Cells[2,i]:=('+');                       // Vorzeichen auf + stellen
       end;

      if Tab.Cells[1,i] = ComboBox1.Items[3] then    // falls Kreissektor aktiviert ist
       begin
        Tab.Cells[3,i]:=('Radius');                  // ändern auf 'Radius'
        Tab.Cells[4,i]:=('Winkel');                  // ändern auf 'Winkel'
        Tab.Cells[2,i]:=('+');                       // Vorzeichen auf + stellen
       end;

      if Tab.Cells[1,i] = ComboBox1.Items[4] then    // falls Kreisabschnitt aktiviert ist
       begin
        Tab.Cells[3,i]:=('Radius');                  // ändern auf 'Radius'
        Tab.Cells[4,i]:=('Winkel');                  // ändern auf 'Winkel'
        Tab.Cells[2,i]:=('+');                       // Vorzeichen auf + stellen
       end;

      if Tab.Cells[1,i] = ComboBox1.Items[5] then     // wenn Kreis aktiviert
       begin
        Tab.Cells[3,i]:=('Radius');                   // zum besseren Verständniss 'Radius' in Spalte 3
        Tab.Cells[2,i]:=('+');                       // Vorzeichen auf + stellen
       end;

     end;

danke im voraus.