TObjectListに入れておけば、リストをクリアするだけでOK