Смена картинки при наведении на Image - Delphi - Ответ 5997523

procedure TZastavka.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if use_picture <> 2 then
begin
Image2.picture.loadfromfile('img/1.2.png');
use_picture:=2
end;
end;
 
procedure TZastavka.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if use_picture <> 3 then
begin
Image2.picture.loadfromfile('img/1.3.png');
use_picture:=3
end;
end;
 
procedure TZastavka.Image2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if use_picture <> 2 then
begin
Image2.picture.loadfromfile('img/1.2.png');
use_picture:=2
end;
end;
 
procedure TZastavka.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if use_picture <> 1 then
begin
Image2.picture.loadfromfile('img/1.png');
use_picture:=1
end;
end;
 
procedure TZastavka.FormShow(Sender: TObject);
begin
Image2.picture.loadfromfile('img/1.png');
use_picture:=1
end;