Formular regiert nicht zur Laufzeit

[thomasch]

Hallo,
offenbar ist die Sache so simpel, dass sie nirgendwo steht...

Wie bringe ich mein Formular dazu, während es beschäftigt ist auf Benutzereingaben zu reagieren?

Zur Verdeutlichung hier ein ganz einfachss Beispiel

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  stopit : Boolean ;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:Longint;
begin
  stopit:=false;
  while not stopit do
  i:=i+1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  stopit:=true;
end;

end.

Wenn ich hier einmal Drücken von Button1 gedrückt habe, reagiert das formular und mit ihm Button2 nicht mehr.
Die Variante, ein zweites Form darüber zu legen ist mir zu unsauber...

Danke schonmal

Thomasch