не хочет устанавливаться

[digital-stream]

unit Scroll;

interface

uses
Windows, SysUtils, Classes, Controls, ExtCtrls, Graphics, Messages, StdCtrls;
type
TColorScrollBar=class(TScrollBar)
private
procedure CNCtlColorScrollBar(var Msg:TMessage);message CN_CtlColorScrollBar;
published
property Color;
end;
implementation

procedure TColorScrollBar.CNCtlColorScrollBar (var Msg:TMessage);
begin
DefaultHandler(Msg)
end;

begin
RegisterComponents('Standart', [TcolorScrollBar])


end.

[Пепел Феникса]

а что пишет то?

[digital-stream]

Сообщение от Пепел Феникса

а что пишет то?

1.JPG
2.JPG