Компонент работает в run-time, но не работает в design-time

[hon]

Написал компонент. Если создаю и присваиваю ему картинки в run-time работает, если в design-time, то Access Violation.
В чем проблема? Компилировал на Delphi 7.

Компонент:

unit ImageButton;

interface

uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
   Dialogs, ExtCtrls;

type
   TImageButton=class(TImage)
   private
      { Private declarations }
      FPictureMouseEnter: TBitmap;
      FPictureStandart: TBitmap;
      FOnMouseLeave: TNotifyEvent;
      FOnMouseEnter: TNotifyEvent;
      procedure CMMouseEnter(var msg: TMessage);
         message CM_MOUSEENTER;
      procedure CMMouseLeave(var msg: TMessage);
         message CM_MOUSELEAVE;
      procedure SetFPictureStandart(Value: TBitmap);
   protected
      { Protected declarations }
      procedure DoMouseEnter; dynamic;
      procedure DoMouseLeave; dynamic;
   public
      { Public declarations }
      constructor Create(AOwner: TComponent); override;
   published
      { Published declarations }
      property PictureMouseEnter: TBitmap read FPictureMouseEnter write FPictureMouseEnter;
      property PictureStandart: TBitmap read FPictureStandart write FPictureStandart;
      property OnMouseEnter: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
      property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
   end;

procedure Register;

implementation

procedure Register;
begin
   RegisterComponents('My Components', [TImageButton]);
end;

constructor TImageButton.Create(AOwner: TComponent);
begin
   ShowMessage('Создание TImage');
   inherited Create(AOwner);
   ShowMessage('Создание FPIctureMouseEnter');
   FPictureMouseEnter:=TBitmap.Create;
   {ShowMessage('Очистка FPIctureMouseEnter');
      FPictureMouseEnter.FreeImage;}
   ShowMessage('Создание FPIctureStandart');
   FPictureStandart:=TBitmap.Create;
   {ShowMessage('Очистка FPIctureStandart');
      FPictureStandart.FreeImage;}
end;

{ Перехват событий }

procedure TImageButton.CMMouseEnter(var msg: TMessage);
begin
   DoMouseEnter;
end;

procedure TImageButton.CMMouseLeave(var msg: TMessage);
begin
   DoMouseLeave;
end;

{ Реализация }

procedure TImageButton.DoMouseEnter;
begin
   //   ShowMessage('Разделение данных FPictureMouseEnter с FPicture.Bitmap');
   Picture.Bitmap.Assign(FPictureMouseEnter);
   //   ShowMessage('Вызов доп. метода');
   if Assigned(FOnMouseEnter) then FOnMouseEnter(Self);
end;

procedure TImageButton.DoMouseLeave;
begin
   //   ShowMessage('Разделение данных FPictureStandart с FPicture.Bitmap');
   Picture.Bitmap.Assign(FPictureStandart);
   //   ShowMessage('Вызов доп. метода');
   if Assigned(FOnMouseLeave) then FOnMouseLeave(Self);
end;

end.

P.S. ImageButton.Picture прошу не трогать!

[Аватар]

Не заметил проблем. Работает, если св-во Picture в design-time присвоить. В run-time тоже работает. Строку убрал

procedure SetFPictureStandart(Value: TBitmap);

[hon]

Аватар, это строка лишняя, правда.
Я делаю так:

1. Кладу ImageButton на форму
2. В свойство PictureStandart загружаю картинку bmp
3. Получаю Access Violation

У меня Delphi 7 Enterprise Edition. Компонент добавляю в пакет dclusr и компилирую его.

[Аватар]

Я использовал св-во Picture. А для PictureStandart нельзя в описании св-ва делать write FPictureStandart. Нужно назначить процедуру, а в ней загнать с помощью FPictureStandart.Assign картинку в FPictureStandart. Посмотрите как в исходниках TImage это реализовано