Загрузка изображения для создаваемого TImage

[LynxRufus]

Проблема в следующем.
Есть класс

type
  Knopka = class (TImage)
  private
  public
    procedure ControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
    procedure ControlMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
    procedure ControlMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    destructor Destroy; override;
  end;

У создаваемого объекта этого класса должна по наведению/нажатию/отпусканию мыши меняться картинка. Но при срабатывании события вылетает ошибка - эксэсс виолэйшн.

Если кто-нибудь поможет - буду крайне признателен.
С уважением, LynxRufus.

[DomiNick]

А где сами процедуры-то? Что смотреть?

[shock-in]

наверно забыл чего то создать

[Stilet]

Но при срабатывании события вылетает ошибка - эксэсс виолэйшн.

Полный код в студию.