Es müssen keine Millionen sein.
Probier es einfach mal aus ... egal welchen Button du drückst und danach die (Haupt)Form schließt, die 100 Forms der Schleife werden niemals gemeldet.
Delphi-Quellcode:
procedure TForm5.Button1Click(Sender: TObject);
var i: Integer;
begin
System.ReportMemoryLeaksOnShutdown := True;
for i := 1 to 100 do TForm5.Create(Self);
end;
procedure TForm5.Button2Click(Sender: TObject);
var i: Integer;
begin
System.ReportMemoryLeaksOnShutdown := True;
for i := 1 to 100 do TForm5.Create(Self);
TForm5.Create(nil);
end;