Inhalt eines Memos zusammenrechnen

[theroad]

Also statt . ein , zu setzen (16,95) zählt er schonmal also ich bekomme in meinem Label einen Wert jedoch ist der flasch sobald ich nocheinen Artikel draufrechne stimmt der wert nicht mehr dann habe ich schon 3 mal 16,95 ausgerechnet obwohl ich nur 2Artikel drinn habe. Er rechnet irgendwie zweimal.

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var
zahl,b, i : integer;
  b2: real;
begin
eancode := InputBox('Eancode','Bitte den Eancode einscannen!','');
q := 'Select * From artikel Where ean='+eancode+';';
  FResult := FMysql.query(q, true, ex);
 memo1.Lines.Add(FResult.FieldValue(1)) ;
 memo2.Lines.Add(FResult.FieldValue(2));
 for i := 0 to memo2.Lines.Count -1 do begin //letzte Zeile hat den Index Count - 1
  b2:= strtofloatdef(memo2.Lines[i],0); //sicherheitshalber
  summe:= summe + b2;
end;
label1.Caption:= floattostr(summe); //nach Abarbeitung der Schleife sollte reichen
end;

Vielen Dank im voraus
MFG