Создание компонента, приемственного от UpDown

[Drozd-A]

Я хочу создать новый компонет приемственный от UpDown, при том что для минимума и максимума значений, шага и позиции я меняю тип данных с Integer и Smallint на Extended.. что еще нужно дописать в код нового компонента?

unit MyUpDown;

interface

uses
SysUtils, Classes, Controls, ComCtrls;

type
TMyUpDown = class(TUpDown)
private
{ Private declarations }
FMin: Extended;
FMax: Extended;
FIncrement: Extended;
FPosition: Extended;
procedure SetMin(Value: Extended);
procedure SetMax(Value: Extended);
procedure SetIncrement(Value: Extended);
procedure SetPosition(Value: Extended);
protected
property Min: Extended read FMin write SetMin default 0.0;
property Max: Extended read FMax write SetMax default 100.0;
property Increment: Extended read FIncrement write SetIncrement default 0.1;
property Position: Extended read GetPosition write SetPosition default 0.0;
public
{ Public declarations }
constructor Create(AOwner:TComponent);override;
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('MyComponents', [TMyUpDown]);
end;

end.

[mss]

что еще нужно дописать в код нового компонента?

Кода-то никакого нет).. Вообще нет)
Так что тут не "дописывать" нужно, а писать весь код от начала и до конца.
А то что ты привел - это декларация класса нового контрола, а код - это его имплементация.

Да и странный компонент - объявляешь одноименные св-ва (но другого типа) и помещаешь их в protected-секцию.. Работать это полноценным образом не будет.

[Drozd-A]

Я делал так, как здесь написано
http://www.rsdn.ru/article/Delphi/makecomponents.xml

[mss]

Делал да не доделал.
До раздела "Код компонента" дела у тебя не дошло, так о каком "дописывании" может идти речь, если то что ты привел даже скомпилировано быть не может ?