procedure CompOnMouseLeave(Sender: TObject);
  begin
    HidePicHint();
    LastIndex := -1;
  end;

  procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
  begin
    if Index = -1 then Exit;
    if Index = LastIndex then begin
      MoveToCursor(Index);
      exit;
    end;
    if (ComponentList[Index].Image = '') and (ComponentList[Index].Desc = '') then begin
      HidePicHint();
      LastIndex := Index;
      exit;
    end;
    if (ComponentList[Index].Image <> '') and (not FileExists(TempPath + ComponentList[Index].Image)) then
      ExtractTemporaryFile(ComponentList[Index].Image);
    ShowPicHint(ComponentList[Index].Image, ComponentList[Index].Desc, Index);
    LastIndex := Index;
  end;