unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ExtCtrls, StdCtrls, ImgList; type TForm1 = class(TForm) Image1: TImage; procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); private { Private declarations } procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; public { Public declarations } end; var Form1: TForm1; i : Integer = 0; implementation {$R *.dfm} procedure TForm1.CMMouseEnter(var Message: TMessage); begin // Image1.Picture.LoadFromFile('on.bmp'); end; procedure TForm1.CMMouseLeave(var Message: TMessage); begin Image1.Picture.LoadFromFile('out.bmp'); i:= 0 ; end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image1.Picture.LoadFromFile('on.bmp'); end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image1.Picture.LoadFromFile('in.bmp'); end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if i= 0 then begin Image1.Picture.LoadFromFile('on.bmp'); i := 1 ; end; end; end.