Código Delphi [-] ... procedure TForm1.btnLiberaClick(Sender: TObject); begin TForm(ListBox1.Items.Objects[Random(Screen.FormCount)]).Free; LoadForms; // actualizar ListBox end;
... procedure TForm1.btnLiberaClick(Sender: TObject); begin TForm(ListBox1.Items.Objects[Random(Screen.FormCount)]).Free; LoadForms; // actualizar ListBox end;