Добавить события в компонент TrackBar

[aleks.halk]

Подскажите пожалуйста как создать новый компонент на основе TrackBar.
Мне не хватает в стандартном компоненте событий OnClick, onMouseDown, onMouseUp. С ООп я не знаком и мне тяжело сделать эти изменения самому.
Буду благодарен за помощь.

[Stilet]

Вот простой пример дописания нового обработчика сообщения

unit Unit1;

interface

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

type
  TTrackBar=class(ComCtrls.TTrackBar)
   private
    procedure OnMouseDown(var m:TWMLButtonDown); message WM_LButtonDown;
  end;
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TTrackBar }

procedure TTrackBar.OnMouseDown;
begin
 ShowMessage('Утопил');
end;

end.

Это не поле для события, а просто внутренний обработчик.
Для onMouseUp примени сообщение WM_LButtonUp
Ну а для OnClick вполне можно попробовать словить BM_Click

[WhiteSpirit]

Можно просто наследовать эти события от предка TTrackBar

type

  TMyTrackBar = class (TTrackBar)
  published
    property OnClick;
    property OnMouseDown;
    property OnMouseUp;
  end;

[aleks.halk]

Stilet, большое спасибо!
дальше постараюсь сам доделать - пытаюсь приспособить его для перемотки в плеере