Absturz von Turbo Delphi bei speichern von Live-Template

[DevilsCamp]

Ich habe mir heute ein eigenes Live-Template geschrieben.

Um es zu testen (und evtl. Tippfehler zu entdecken) woltte ich es abspeichern und in einem Projekt nutzen.
Soweit kam es aber nicht. Anscheinend hat TD (Explorer) nach dem speichern versucht das Template zu integrieren und die CPU-Auslastung ging auf 100% hoch, was dazu führte, dass die IDE nicht mehr ansprechbar war. Nur ein Kill aus dem Taskmanager konnte dem ein Ende machen.

Liegt das nun an TD oder evtl. an meinem Template (s.u.).

XML-Code:

<?xml version="1.0" encoding="utf-8" ?>
<codetemplate   xmlns="http://schemas.borland.com/Delphi/2005/codetemplates"
            version="1.0.0">
   <template name="objlist" invoke="auto">
      <description>
         Erstellt zwei Klassen um eine Liste zu erstellen
      </description>
      <author>
         Marc Rasmussen
      </author>
      <point name="classname">
         <text>
            ELEMENTKLASSE
         </text>
         <hint>
            Klassenname eines Elementes
         </hint>
      </point>
      <point name="classnamelist">
         <text>
            LISTENKLASSE
         </text>
         <hint>
            Klassenname der Liste
         </hint>
      </point>
      <point name="listenvar">
         <text>
            LISTENVAR
         </text>
         <hint>
            Privater Name der Liste
         </hint>
      </point>
      <code language="Delphi" delimiter="|"><![CDATA[
T|classnamelist| = class;

T|classname| = class(TObject)
private
|*|FParent : T|classnamelist|;
protected
public
|*|constructor Create(AParent: T|classnamelist|); reintroduce;
|*|destructor Destroy; override;
end;

T|classnamelist| = class(TObject)
private
|*|F|listenvar| : TList;

|*|function GetItems(Index: Integer): T|classname|;
protected
public
|*|constructor Create; reintroduce;
|*|destructor Destroy; override;

|*|function Add: T|classname|; overload;
|*|function Add(|classname|: T|classname|): Integer; overload;
|*|function Count: Integer;
|*|function Insert(Index: Integer): T|classname|; overload;
|*|function Insert(Index: Integer; |classname|: T|classname|): Integer; overload;

|*|procedure Clear;
|*|procedure Delete(Index: Integer); overload;
|*|procedure Delete(|classname|: T|classname|); overload;

|*|property Items[Index: Integer]: T|classname| read GetItems; default;
end;
|end|
]]>
      </code>
   </template>
</codetemplate>