Image со свойствами MouseEnter и MouseLeave

[Шульц]

Не очень разбираюсь в написании компонентов, так что прошу помощи у вас. Нужен компонент с этими свойствами. МОжет у кого есть? или решит написать если не сложно, а может есть в инете уже готовый?

[Kotofff]

unit MyImage;
interface
uses
SysUtils, Classes, Controls, ExtCtrls;
type
TMyImage = class(TImage)
private
  FOnMouseEnter : TNotifyEvent;
  FOnMouseLeave : TNotifyEvent;
  procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
protected
public
published
  property OnMouseEnter : TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
  property OnMouseLeave : TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;
procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TMyImage]);// регистрируем свой компонент в закладке Samples
end;

procedure TMyImage.CMMouseEnter(var Msg: TMessage);
begin
  //  Твои действия при входе мыши
end;

procedure TMyImage.CMMouseLeave(var Msg: TMessage);
begin
  //  Твои действия при выходе мыши
end;

end.

[Шульц]

Ну у меня при в ходе мыши и выходе будет менятся картинка и будет несколько таких компонентов. Это мне для каждого описывать смену картинки? А можно сделать так, чтобы данная функции отображалась с остальными (например ONClick)?