Programmabsturz, aber warum

[Weber]

Hallo zusammen.

Ich habe eine While geschrieben die per Button click ausgeführt werden soll und später bei Eingabe in das oberste Edit.
Jetzt ist es so das wenn ich sie zu Test starten will, um zu sehen ob es so funktioniert stürzt das Programm ab. Leider weiß ich nicht wo ran es liegen könnte.
Ich Arbeite mich grade in Delphi ein und habe schon in verschiedenen Forums nach einer Lösung geschaut aber nix gefunden. Erklärungen wie die Schleife aufgebaut ist habe ich mir durch gelesen und so wie ich das verstanden habe sollte es ja funktionieren.
Für den Fall das es wichtig sein sollte, ich verwende Delphi XE2

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c:Integer;
begin
//String Umwandlung in Integer
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
//While-Schleife
  while b<=0 do
    begin
      Edit1.Text:=IntToStr(a+1);
    end;
end;

procedure TForm1.Edit1Change(Sender: TObject);

//Beispiel was bei erreichen der Zahl 3 pasieren sollte
begin
  if Edit1.Text='3' then
    Edit2.Text:=('3')
  else
    Edit2.Text:=('0');
end;
end.

Danke schon mal.