Probleme beim programmieren eines Kapitalwertrechners

[Hellraizer]

Hallo zusammen.
Bin dabei ein Kapitalwertrechenr zu schreiben und mein Quelltext ist folgender:

Delphi-Quellcode:

unit Kapitalwertberechnung;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, math;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
begin
  self.memo1.Text:=('');
end;

procedure TForm1.Button1Click(Sender: TObject);
var summe, zinssatz, z, zahlungen: real;
i, n: integer;



begin
  if edit1.text=('') then
    begin
      showmessage ('Bitte Zinssatz eingeben.');
      exit
    end;
    if memo1.lines.strings[0]=('') then
    begin
      showmessage ('Bitte Zahlung eingeben.');
      exit;
    end;
  i:=0;
  zahlungen:=0;
  summe:=0;
  zinssatz:=strtofloat(edit1.text);
   while (memo1.lines.strings[i]<>('')) do
    begin
      i:=i+1;
    end;
  n:=i;
  z:=1+zinssatz/100;
  z:=z*power(1/z,i);
  while n>0 do
    begin
      zahlungen:=zahlungen+strtofloat(memo1.Lines.Strings[n]);
      n:=n-1;
    end;
  summe:=zahlungen*z;
  self.edit2.text:=floattostr(summe);

end;
end.

Das Problem ist das ich die Werte die in den Lines des Memo stehen addieren muss. Leider funktioniert meine Vorgehensweise nicht so recht.

Bitte helft mir ich stehe gerne zu Rückfragen bereit
MFG Kevin