Zum Thema Objekte wiederverwenden:
Dafür könnten diese Methoden der Klasse TMoep überschieben werden:
Delphi-Quellcode:
class function NewInstance: TObject; override;
procedure FreeInstance; override;
Benötigt wird eine globale Liste für verfügbare TMoep-Objekte.
FreeInstance speichert "freigegebenen" Objekte in dieser.
NewInstance kann sich aus der Liste bedienen, so lange noch "freigegebene" Objekte vorhanden sind.