Runtime error

Hej,
Jeg sidder og leger lidt med noget MDI. Jeg har lavet så man kan oprette en editor form - Virker også fint. Lige indtil man lukker programmet. Jeg får følgende fejlmeddelse: "Runtime error 216 at 004325F1". Den åbner synTextDrawer go markerer følgende linie:

ASSERT(1 = PheSharedFontsInfo(FFontsInfo[FFontsInfo.Count - 1])^.RefCount);

--> Hele koden:

destructor TheFontsInfoManager.Destroy;
begin
  gFontsInfoManager := nil;
 
  if Assigned(FFontsInfo) then
  begin
    while FFontsInfo.Count > 0 do
    begin
      ASSERT(1 = PheSharedFontsInfo(FFontsInfo[FFontsInfo.Count - 1])^.RefCount);
      ReleaseFontsInfo(PheSharedFontsInfo(FFontsInfo[FFontsInfo.Count - 1]));
    end;
    FFontsInfo.Free;
  end;

  inherited;
end;

HJÆLP

// Mr.Meincke