Cellen im Stringgrid zusammenrechnen

[SaFu]

Tach

Stehe mal wieder vor einem Problem und zwar versuche ich gewisse Zellen im StringGrid zusammen zu addieren

Folgendes wenn in Spalte Way der String OUT vorkommt (hab ich auch soweit), dann soll in der Spalte Zahlx die jweilige Zeile in der, der String OUT gefunden wurde der Wert der Spalte Zahlx zusammen gezählt werden

Delphi-Quellcode:

 procedure findStrings(sl:TStrings);
var i :Integer;
begin
 for i := 1 to Pred(sl.Count)-1 do
  if (sl[i]) = 'OUT' then
   begin
    
   end
end;

procedure TForm1.Button6Click(Sender: TObject);
Var i : integer;
begin
 for I := 0 to StringGrid1.RowCount - 1 do
  if StringGrid1.Cells[i,0] = 'Way' then
      findStrings(StringGrid1.Cols[i]);

end;

Hoffe ich habe es verständlich erklärt