Непонятное поведение при вызове метода класса

[cav]

Win 2000 lazarus 0.9.21 SVN:10342
Имеется некий объект определенный следующим образом:

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

     TSheme=class(TObject)
      FCountShemeItem:integer;
      FKeyShemeX:array of TKeySheme;
     public
      constructor Create;
      destructor Destroy;override;
      procedure AddKeyShemeItem(KeySheme:tKeySheme);
      ...........................
     published
       ............................
     end;   
     
constructor tSheme.Create;
begin
  inherited Create;
  FCountShemeItem:=0;
  SetLength(FKeyShemeX,0);
end; 

procedure tSheme.AddKeyShemeItem(KeySheme:tKeySheme);
begin
   addlog(CFG.LogFile,'new key22'); // это для отладки
   FCountShemeItem:=FCountShemeItem+1;
// остальное поскипано
end;         


создаем объект по Sheme.Create;
пытаемся вызвать метод AddKeyShemeItem
выдает Project raised exception class 'EXTERNAL:SIGSEGV'
комментируем FCountShemeItem:=FCountShemeItem+1
ошибки нет. Где у меня грабля и что я делаю не так ?

[shade]

Создавать нужно tSheme.Create, а не Sheme.Create
В первом случае создается объект, во втором вызывается constructor tSheme.Create как обычный метод, т.е. без создания объекта

[cav]

Спасибо !!! блин протупил не по детски....