Ошибка в коде. Пытаюсь создать собственный компонент

//---------------------------------------------------------------------------
 
#include <vcl.h>
 
#pragma hdrstop
 
#include "NkEdit.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//
 
static inline void ValidCtrCheck(TNkEdit *)
{
    new TNkEdit(NULL);
}
//---------------------------------------------------------------------------
__fastcall TNkEdit::TNkEdit(TComponent* Owner)
    : TEdit(Owner)
{
    Text = "";
 
    FOnlyPositive = true;
    FMaxLenInt = 6;
    FMaxLenFrac = 2;
    FNext = NULL;
}
//---------------------------------------------------------------------------
namespace Nkedit
{
    void __fastcall PACKAGE Register()
    {
        TComponentClass classes[1] = {__classid(TNkEdit)};
        RegisterComponents(L"Standard", classes, 0);
    }
}
 
//возвращает значение своства value
float __fastcall TNkEdit::GetValue()
{
    if ( Text.Length() )
        return StrToFloat(Text);
    else
        return 0;
}
 
//устанавливает значение своства value
void __fastcall TNkEdit::SetValue( float v)
{
    Text = FloatToStr(v);
}
 
//обработка события KeyPress в поле компонента NkEdit
void __fastcall TNkEdit::KeyPress(char &Key)
{
    int p;//позиция DecimalSeparator
    int n;
 
    //коды запрещённых клавишь заменим нулём
    switch (Key) {
            case '0':
            case '1':
            case '2':
            case '3':
            case '4':
            case '5':
            case '6':
            case '7':
            case '8':
            case '9':
                        p = Text.Pos(DecimalSeparator);
                        if (( p==0 ) || ( SelStart < p)) {
                            //Цифра целой части.
                            //Определим сколько цифр уже введено
                            if (p==0) {
                                n = Text.Length();
                            }
                                else n = p-1;
                            if ((n>0) && (Text[1] == '-')) {
                                n--;
                            }
                            if ( n == FMaxLenInt) {
                                Key = 0;
                            }
                        }
                        else {
                            //цифра дробной части
                            n = Text.Length()-p;
                            if (n==MaxLenFrac) {
                                Key = 0
                            }
                        }
                        break;
            case '.':
            case ',':
                        Key = DecimalSeparator;
                        if (Text.Pos(DecimalSeparator) != 0){
                            Key = 0;
                        }
                        break;
 
            case '-':   if ((FOnlyPositive) || (SelStart > 0)) {
                            Key = 0;
                        }
 
            case VK_RETURN:
                        if ( Next != NULL){
                            FNext->SetFocus();
                        }
 
            case VK_BACK:
                        break;
 
            default://остальные символы
                        Key = 0;
                ;
            }
            TEdit::KeyPress(Key);
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#ifndef NkEditH
#define NkEditH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
//---------------------------------------------------------------------------
class PACKAGE TNkEdit : public TEdit
{
private:
    //поля, хранят значения свойств
    bool FOnlyPositive; //true - отрицательное число ввести нельзя
    int FMaxLenInt;     //Допустимое количество цифр целой части
    int FMaxLenFrac;    //Допустимое количество цифр дробной части
    TWinControl *FNext; /*компонент, на который будет установлен
                        фокус в результате нажатия <Enter>*/
 
    //функции, используются для вычисления и установки значений своств
    void __fastcall SetValue( float value);//устанавливает значения свойства Value
    float __fastcall GetValue(void);//возвращает значение свойства Value
 
protected:
 
public:
    //конструктор
    __fastcall TNkEdit(TComponent* Owner);
 
    //свойства, объявленные в секции public, в Object Inspector не отображаются
    __property float Value = { read = GetValue, write = SetValue };
    //функция обработки события KeyPress
    DYNAMIC void __fastcall KeyPress( char & Key);
 
__published:
    //свойства, объявленные в секции published, отображаются Object Inspector
    __property bool OnlyPositive = { read = FOnlyPositive, write = FOnlyPositive };
    __property int MaxLenInt = { read = FMaxLenInt, write = FMaxLenInt };
    __property int MaxLenFrac = { read = FMaxLenFrac, write = FMaxLenFrac };
    __property TWinControl * Next = { read = FNext, write = FNext };
};
//---------------------------------------------------------------------------
#endif