Cellen im Stringgrid zusammenrechnen

[SaFu]

So jetzt bin ich schonmal weiter und hab die einträge aus der spalte in meiner Stringlist

jetzt hab ich nur zwei Proble

1 Es wird nicht nur der wert der Zeile ind OUT steht übergeben sondern alle

2 Wie Rechne ich dann alles zusammen

So hab ich es jetzt

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.AddStrings(s);
     end;
    ergebnis.saveToFile('C:\test.txt');
   finally
  ergebnis.Free;
  end;
end;

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

      findStrings(StringGrid1.Cols[i],StringGrid1.Cols[x]);
end;