Umwandlung String in Double

[allarich]

Hallo Freunde,

habe ich schon probiert.Hat aber nicht geklappt. Vielleicht ein Fehler von mir ?
Habe folgende source verwendet:

Delphi-Quellcode:

var
  i: Integer;
  Z1: string;
  Ergebnis: Double;

begin
  Ergebnis:= 0;
  i:= 0;
  REPEAT
    i:= i + 1;
    Z1:= ws.Cells.Item[i];
    Ergebnis:=Ergebnis + StrToFloat(Z1);
    end; 
  UNTIL Z1 = ''
end;

Wer sieht hier wo einen Fehler ?

MfG
allarich

[edit=Sharky]Delphi-Tags gesetzt und den Code etwas formatiert Mfg, Sharky[/edit]