Cellen im Stringgrid zusammenrechnen

[SaFu]

OK

jetzt bekomme ich die nur die ergebnisse die in der zeile mit Out stehen in die StringList wie Rechne ich die jetzt zusammen jetzt brauch ich aber wirklich eure hilfe das weis ich nicht, hab ja gezeigt das ich will oder

Delphi-Quellcode:

procedure findStrings(sl:TStrings;s:TStrings);
var i :Integer;
    ergebnis :Tstrings;
begin
ergebnis:= TStringList.Create;
  try
   for i := 1 to Pred(sl.Count)-1 do
    if (sl[i]) = 'OUT' then
     begin
      ergebnis.Add(s[i]); //hier die änderung
     end;
    ergebnis.saveToFile('C:\test.txt');
   finally
  ergebnis.Free;
  end;
end;