<div dir="ltr"><div class="gmail_extra"><div class="gmail_extra">procedure TForm1.FormCreate(Sender: TObject);</div><div class="gmail_extra">begin</div><div class="gmail_extra">  FRecycleBin := TObjectList.Create(True);</div><div class="gmail_extra">end;</div><div class="gmail_extra"><br></div><div class="gmail_extra">procedure TForm1.FormDestroy(Sender: TObject);</div><div class="gmail_extra">begin</div><div class="gmail_extra">  FRecycleBin.Free;</div><div class="gmail_extra">end;</div><div class="gmail_extra"><br></div><div class="gmail_extra">procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);</div><div class="gmail_extra">begin</div><div class="gmail_extra">  FRecycleBin.Clear;</div><div class="gmail_extra">  Done := True;</div><div class="gmail_extra">end;</div><div class="gmail_extra"><br></div><div class="gmail_extra"> ...</div><div class="gmail_extra">FRecycleBin.Add(SomethingToJunkLater);<br></div><div class="gmail_extra"><br></div></div></div>