Simples Programm blockiert den ganzen Rechner

[Rainer Wolff]

Hallo,

eigentlich bin ich auf der Suche nach gang anderen Programmfehlern, deshalb habe ich mein Programm so weit abgespeckt, daß es in einer Schleife am Ende nur noch eine Zahl in den Titelbalken des Fensters schreibt (VCL).

Warum zefix wird denn dabei der komplette Rechner blockiert, auch noch nachdem die Schleife durchgelaufen ist?
Und das sowohl unter 10.4, 10.2 als auch D2007.
BS: Windows 10 akt.

Code:

procedure TForm15.Button1Click(Sender: TObject);
var
  I:Integer;
begin
  for i := 0 to 1000000 do
  begin
    caption:=inttostr(i);
  end;
end;