stringgrid addieren

[horst]

hallo...
es geht um ein stringgrid.
wenn in einer stringgridzelle z.b. 3*4 steht dann wird das ergebnis (12) in zelle 23 eingetragen.
zusätzlich soll das (addieren)
berücksichtigt werden, also wenn 12+2 in einer zelle steht soll in zelle 23 eingetragen werden
ich bekomme bei meinen versuchen immer nur 2 rechenmöglichkeiten realisiert, nie alle 3 auf einmal.

der betreffende teil des scripts liegt hier.

Delphi-Quellcode:

if STringGrid1.Cells[i, y] <> '' then 
      begin 
        nr := StringGrid1.Cells[i, y]; 
        x := pos('*', nr); 
        if x > 0 then 
        begin 
          m1 := strtofloat(copy(nr, 1, x - 1)); 
          m2 := strtofloat(copy(nr, x + 1, length(nr) - x)); 
          sum := sum + (m1 * m2); 
        end