[size=-2]------ Добавлено в 10:12
Dilma, чего-то мне стало казаться, что две предпоследние строчки лишние:
destructor TKOLOleRichEdit.Destroy;
var P: PData;
begin
P := CustomData;
P.IBck._Release;
{Dispose(P);
CustomData := nil;}
inherited;
end;