Text in die letze Zeile vom StringGrid

[SaFu]

Mosche

Wie es son oben stehet versuche ich ein ergebnis vom label7 in die letzte seile in eine bestimmte Zeile vom StringGrid zu bekommen

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
Var i,x,y : integer;
 summe1 : double;
begin
Label3.Caption:= '';
Label7.Caption:= '';
 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] = 'ergebnisspalte' then  <------------------------------------------------                                                          
                                                                                                      |
      Label3.Caption:= FloatToStr(findStrings(StringGrid1.Cols[i],StringGrid1.Cols[x]));              |
      summe1:= StrToFloat(Label3.caption);                                                            |
      Label7.Caption:= Format('%.6f',[summe1/(60)])+' <-min. sek.-> ';                                |
 end;                                                                                                 |
 StringGrid1.RowCount:= StringGrid1.RowCount +1; // hier wird eine hinzugefügt und in die soll der Text von 
label7 von der spalte 

end;

Gruß sascha