Установка компонента

[Alex217Vish]

Пишу свой компонент. Сразу привожу проблемную часть кода:

constructor TNet.Create(AOwner: TComponent);
begin
  Inherited Create(AOwner);
  if not (csDesigning in ComponentState) then DefaultNetCell := GetDefaultNetCell;
end;

Здесь:
TNet: потомок TStringGrid
DefaultCell : переменная
GetDefaultCell - функция, вызываемая из библиотеки:

function GetDefaultNetCell: TDefaultNetCell; external 'Kernel.dll';

Так вот. По идее, при таком коде (с if csDesigning...) функция GetDefaultNetCell должна вызыватся только при работе run-time.
Но: она вызывается и при установке компонента. Поэтому установить его не удаётся...

Вопрос: Как это исправить?

P.S. Уточнение:

он либо ставится, но после этого скомпилить Kernel.dll нельзя, т.к. она запущена,
либо при установке выдаёт ошибку что "Kernel.dll" не найдена

P.P.S. Delphi 2009

[Alex217Vish]

Всё. проблема решена.

Дело было вот в чём:

function GetDefaultNetCell: TDefaultNetCell; external 'Kernel.dll';

распологалось в другом модуле. когда перенёс в тот же модуль, где написан компонент, то всё стало ок =)