Ungültiger Gleitkommawert

[pp-deluxe]

G.ude

Ich möchte 2 Werte miteinander verrechnen, es scheitert jedoch an einem EConvertError!
DIe Fehlermeldung lautet: 26.51551922 ist kein gültiger Gleitkommawert.

Hier der Quelltext:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var wert1, wert2: string;
var wert11, wert12, wert3: real;
begin
      wert1 := Copy(Stringgrid1.cells[0,1], 7, 11);
      wert2 := Copy(Stringgrid1.cells[0,2], 7, 11);
      wert1 := '+' + wert1;
      wert2 := '+' + wert2;

      wert11 := StrToFloat(wert1);
      wert12 := StrToFloat(wert2);
      wert3 := wert12 - wert11;
      label1.caption := FloatToStr(wert3);

An was liegts?

ThX