Text in die letze Zeile vom StringGrid

[SaFu]

hab doch nochmal ne frage warum werden bei manschen dateien nicht die zwei zeilen angehängt, sonder das ergebnis wird in die letzte Zeile geschrieben in denen noch werte stehen??

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
Var i,x,y : integer;
 summe1,ErgebnisSwichedDuration : double;
begin
Label3.Caption:= '';
Label7.Caption:= '';
y:= StringGrid1.Rows[0].IndexOf('SwitchedDuration');
 begin

   for I := 0 to StringGrid1.RowCount - 1 do
   if StringGrid1.Cells[i,0] = 'Way' then
    for x := 0 to StringGrid1.ColCount -1 do
    if StringGrid1.Cells[x,0] = 'SwitchedDuration' then


      ErgebnisSwichedDuration:= (findStrings(StringGrid1.Cols[i],StringGrid1.Cols[x]));
      summe1:= (ErgebnisSwichedDuration);

     StringGrid1.RowCount:= StringGrid1.RowCount +2;
     StringGrid1.Cells[y,Pred(StringGrid1.RowCount)]:= Format('%.6f',[summe1/(60)])+' min.';
     StringGrid1.Cells[0,Pred(StringGrid1.RowCount)]:= 'Gesamt';
 end;
end;