unit kbar;

interface

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

type
  TkTrackBar = class(TTrackBar)
  private
  protected
  public
  published
    property OnMouseUp;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Kave2000', [TkTrackBar]);
end;

end.