1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

type
  TLabelEx = class(TLabel)
  private
    fOnMouseEnter: TNotifyEvent;
    fOnMouseLeave: TNotifyEvent;
    procedure cmMouseEnter(var Msg: TMsg); message cm_MouseEnter;
    procedure cmMouseLeave(var Msg: TMsg); message cm_MouseLeave;
  public
    property OnMouseEnter: TNotifyEvent read fOnMouseEnter write fOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read fOnMouseLeave write fOnMouseLeave;
  end;

procedure TLabelEx.cmMouseEnter(var Msg: TMsg);
begin
if Assigned(fOnMouseEnter) then
  fOnMouseEnter(self);
end;

procedure TLabelEx.cmMouseLeave(var Msg: TMsg);
begin
if Assigned(fOnMouseLeave) then
  fOnMouseLeave(self);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Panel1MouseEnter(Sender: TObject);
begin
  Image2.Visible := True;
end;

procedure TForm1.Panel1MouseLeave(Sender: TObject);
begin
  Image2.Visible := False;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure LoadPictureToImage(index: Integer; //Index des Image aus der Liste
                             const imgList: TImageList;
                             const Pic: TImage);
var BMP: TBitmap;
begin
  BMP := TBitmap.Create;
  try
    imgList.GetBitmap(index,BMP);
    Pic.Picture.Bitmap.Assign(BMP);
  finally
    BMP.Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image1.Visible := false;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image1.Visible := true;
end;