natürliche, ungerade zahlen addieren

[Amo]

Also die zahl die ich brauche ist: alle natürlichen und ungeraden zahlen von 1 bis 489511 (jeweils eingeschlossen) ---> zusammen addiert. So jetzt habe ich eben gecodet und vom code her funktioniert es ja alles, nur das ergebnis kommt nicht hin.

Hier mein code (Auf der Form vorhanden sind Button1, Button2, Memo, Edit1):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  i := 0;
  while strtoint(memo.Lines.Strings[memo.Lines.Count-1]) > 1 do
  begin
  memo.Lines.Add(inttostr(strtoint(memo.Lines.Strings[i])-2));
  inc(i);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var a: integer; result: longint;
begin
  a := 0;
  while a < memo.Lines.Count do
  begin
  result := strtoint(memo.Lines.Strings[a]);
  edit1.Text := inttostr(strtoint(edit1.text)+result);
  inc(a);
  end;
end;

Vorraussetzung Edit1.Text ist am anfang null.

So, wo ist jetzt der fehler? Ich verstehe es einfach nicht, als ergebnis bekomme ich immer eine negative zahl!!