Um auch die Freigabe wieder hin zu bekommen ist es ratsam die Forms in einem Array zu speichern. Damit hast du auch die Möglichkeit durch eine Schleife die verschiedenen Forms einfach anzusprechen:
Delphi-Quellcode:
private
yourForms: array of TForm1;
var
i: Integer;
begin
SetLength(yourForms, 20);
for i := 0 to length(yourForms) - 1 do
begin
MyFrm := TForm1.Create(Application.MainForm);
MyFrm.Left := Random(Screen.Width - Form1.Width) + 1;
MyFrm.Top := Random(Screen.Height - Form1.Height) + 1;
MyFrm.Show;
yourForms[i] = MyFrm;
end;
[...]
for i := 0 to length(yourForms) - 1 do
yourForms[i].Free;
SetLength(yourForms, 0);