Panel mit Label dynamisch erzeugen

[himitsu]

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;