Создание потомка стандартного объектного интерфейса

[Galex]

Всем привет!.. Возникла необходимость создать потомка стандартного интерфейса. Написал, примерно, следующее:

Файл: MakeSoprByBuff.vih

Код: Выделить всё

#include MakeNakl.vih

objInterface MakeSoprByBuffObj2 (MakeSoprByBuffObj);

function TestFunc: Boolean;

end;

vipInterface MakeSoprByBuff2 (MakeSoprByBuff) implements MakeSoprByBuffObj2;

Файл: MakeSoprByBuff.vip

Код: Выделить всё

interface MakeSoprByBuff2;

create view
from
  KatSopr;

function TestFunc: Boolean;
{
  Result := False;
}

end.

Компилятор выдает ошибку:

Код: Выделить всё

MakeSoprByBuff.vip(1)Runtime error 216 (rtl: попытка обращения к некорректному дескриптору) in streams_.dll at 00028650

Если кто сталкивался, подскажите что я сделал не так... Галактика 8.0, Платформа: Pervasive