Werte von stringgrid zellen zusammenrechnen

[rhodan]

hi..

mit folgendem code addiere ich die werte von stringgrid zellen zusammen und weise sie einem editfeld zu:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
Z1, Z2,z3: extended;
begin
  z1 := strtofloatdef(Grid.Cells[1,1], 1);
  z2 := StrTofloatdef(Grid.Cells[2,1], 1);
  z3 := StrTofloatdef(Grid.Cells[3,1], 1);
  edit1.text:= floattostr((z1+z2+z3));
end;

mein problem ist das die anzahl der Columns nicht feststehend ist, der user kann neue hinzufügen oder löschen...hat jemand eine idee wie ich das umsetzen kann? im prinzip muss die anzahl der bestehenen columns ausgelesen werden (in diesem falle 3) und die werte der drei addiert werden...wenns 5 sind eben der 5...etc...
könnt ihr mir nen tip geben?

ich schätze mal ich muss den grid.colcount einem integer zuweisen, aber bei dem rest steh ich auf dem schlauch.

lg

lg robin