Text in die letze Zeile vom StringGrid

[SaFu]

besser so

wenn du mir jetzt noch den fehler sagen könntest oder verbesserungsvorschläge hast nur her damit.

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
Var i,y : integer;
    summe1,ErgebnisSwichedDuration : double;
begin
 ErgebnisSwichedDuration:= 0;
 Label3.Caption:= '';
 Label7.Caption:= '';
 y:= StringGrid1.Rows[0].IndexOf('SwitchedDuration');
  begin
   if StringGrid1.Rows[0].IndexOf('SwitchedDuration') = 4 then
     begin
      for I := 0 to StringGrid1.RowCount - 1 do
       if StringGrid1.Cells[i,0] = 'Way' then

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

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