Изменение картинки при наведении курсора!

[[BeNdeR]]

Понимаю что вопрос глупый!) Как сделать так, чтоб при наведении курсора картинка менялась на другую, а когда убираешь курсор возвращала прошлую?
Я делал через onMouseMove.
Писал туда image1.Picture.LoadFromFile('МояКар тинка.bmp');
Но ещё нужно, чтобы возвращалась прошлая картинка!
Пожалуйста подскажите как это сделать!

[AlDelta]

OnMouseEnter/OnMouseLeave

[[BeNdeR]]

Что здесь не так?

procedure TForm1.Image2MouseLeave(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image2.Picture.LoadFromFile('Option sClick.bmp');
end;

[MyLastHit]

private
procedure MyMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
...
procedure Image2.MyMouseLeave(var msg: TMessage);
begin
inherited;
image2.Picture.LoadFromFile('Option sClick.bmp');
end;

[eduard93]

Что здесь не так?

А что здесь не так? Все так.

[[BeNdeR]]

Не работает((

[eduard93]

Хм, у меня на DelphiXE все прекрасно работает.

[[BeNdeR]]

У меня обычный Delphi 7. Блин по сути должно работать!
Полный код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure image1OnMouseLeave(var msg: TMessage);

  private
    { private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure tform1.image1OnMouseLeave(var msg: TMessage);
begin
Image1.Picture.LoadFromFile('OptionClick.bmp');
end;
end.

Не на что не ругается. Просто не работает!

[Serge_Bliznykov]

Не на что не ругается. Просто не работает!

меня терзают смутные сомнения...
А Вы не забыли назначить событию OnMouseLeave соответствующий обработчик?!

[[BeNdeR]]

Сообщение от Serge_Bliznykov

А Вы не забыли назначить событию OnMouseLeave соответствующий обработчик?!

Ну в EVENTS такого события нету!