Invalid Pointer Operation, при освобождении памяти Опции

[volvo]

Кто-то из нас двоих глючит, или я, или Delphi ...

"Я догадываюсь, кто" (С)

Ситуация такая:

Var strClassName: PWideString;
Const maxLength = 255;
...

     Try
       GetMem(strClassName, maxLength * SizeOf(WideChar) + 1);

       myCheckListBox.Clear;
       Repeat
         HR:=PEnumClsid.Next(1,Guid_Component,Count);
         If HR = S_Ok Then begin

           OleRegGetUserType(GUID_Component, USERCLASSTYPE_FULL, strClassName);
           myCheckListBox.Items.Add(string(strClassName));

         end;
       Until HR <> S_Ok ;
     Finally
       FreeMem(strClassName); { <--- Здесь - ошибка ... }
     End;

Мне интересно, что может служить причиной ошибки

Может, я где-то чего-то не замечаю?