Memoeintrag hinzufügen (erweitert)

[Portfreak]

Hallöchen!

So nun ist das eine Problem gelöst kommt das andere ...

Ich versuche eine Differenzübersicht in Form eines Memofeldes zu generieren.
Dieser soll zwei Werte in einem Memofeld(1) voneinander subtrahieren (z.B. Eintrag 2. - 1.). -> Was soweit klappt.
Nun soll er diesen Wert in das Memofeld(2) übertragen. -> Was nicht klappt.

Zur Zeit bin ich soweit gekommen. Ich weiß, dass dort nur ein minimaler Fehler ist aber ich weiß zum $%§$"""$$ nicht wo ^^.

Delphi-Quellcode:

procedure TForm1.Differenz;
var i : integer;
var k: double;
begin
  k:=0;
 for i:=0 to Memo1.Lines.Count-1 do begin
  k := k + (StrToFloat(memo1.Lines[i+1])-(StrToFloat(memo1.Lines[i])));
  Memo2.Lines.Insert(i, FloatToStr(k));
  end;
end;

Über weitere hilfe wäre ich seeeehr Dankbar