[Ришта]

Добрый день! Пытаюсь изменить изображение при наведении курсора. Пыталась найти решение на этом форуме и в учебниках - не смогла. Программа выдаёт ошибку на "Image1". Что я упустила?

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if (X>=Image1.Left)and(Y>=Image1.Top)and(X<=Image1.Left+Image1.Width)and(Y<=Image1.Top+Image1.Height) then
      Image1.Picture.LoadFromFile('C:\Yellow.bmp')
   else
      Image1.Picture.LoadFromFile('C:\While.bmp');
end;

end.