TStringDictionary: Access Violation beim Auslesen der Daten?

[romber]

Ich benutze in meinem Projekt die tollen Hash-Tabellen-Komponenten, die alzaimar mal gescherieben und hier im Code-Library veröffentlicht hat. Und zwar lade ich in eine TIntegerDictionary die Daten aus einer XML-Datei. Die Daten sehen folgendermassen aus:

<MANUFACTURERS>
<MANUFACTURER code="1" text="Das ist Text_1">
<MANUFACTURER code="2" text="Das ist Text_2">
<MANUFACTURER code="3" text="Das ist Text_3">
<MANUFACTURER code="4" text="Das ist Text_4">
<MANUFACTURER code="5" text="Das ist Text_5">
</MANUFACTURERS>

Die Inhalt der Attribute "code" wird in den Integer umgewandelt und landet als "key" in die IntegerDictionary. Den Inhalt von "text" wird dann zu den Daten, auf die den Pointer zeigt. So sieht es bei mir aus:

Delphi-Quellcode:

var
  libEngineManufacturers: TIntegerDictionary;
...

procedure LookuptabellenErstellen;
var
  XMLDoc: IXMLDocument;
  XMLRoot: IXMLNode;
  XMLEngineManufacturers: IXMLNode;
  Value: string;
  Code: string;
  i: integer;
begin
  XMLDoc := NewXMLDocument;
  XMLDoc.LoadFromFile(LOOKUP_PATH + XML_LOOKUP_FILE);
  XMLDoc.Active := true;
  XMLRoot := XMLDoc.DocumentElement;

  if Assigned(XMLRoot.ChildNodes.FindNode('MANUFACTURERS')) then
  begin
    XMLEngineManufacturers := XMLRoot.ChildNodes['MANUFACTURERS'];
    for i := 0 to XMLEngineManufacturers.ChildNodes.Count - 1 do
    begin
      Value := XMLEngineManufacturers.ChildNodes[i].Attributes['text'];
      Code := XMLEngineManufacturers.ChildNodes[i].Attributes['code'];
      libEngineManufacturers.Add(StrToInt(Code), Pointer(Value));
    end;
  end;
end;

Beim versuch, die Daten dann über den Key zu finden, kommt es zu Access Violation.

Delphi-Quellcode:

function GetManufacturer(const AManufacturerCode: integer): string;
var
  pManufacturerName: Pointer;
begin
  Result := 'Unbekannt';
  if libEngineManufacturers.Find(AManufacturerCode, pManufacturerName) then   \\  <---Bereits hier kommt es zum Access Violation
  Result := string(pManufacturerName);
end;

Was mache ich falsch?