Создан компонент линейка на базе TCustomPanel
У TCustomPanel нет событий.
Создаю событие OnChange при котором возвращается положение
ползунка линейки.
Когда в тестовой программе создана процедура на событие OnChange
все работает нормально, если событие не создано возникает ошибка
переполнение стэка.
Где может быть ошибка?

unit ChRuler;

interface

uses
Windows, SysUtils, Classes, Controls, StdCtrls,Graphics,ExtCtrls;

Type TChangeEvent = procedure(Sender: TObject; var AValue: Integer) of object;

type
TChRuler = class(TCustomPanel)
private
{ Private declarations }
.............................
FChange:TChangeEvent;
protected
{ Protected declarations }
..............................
public
{ Public declarations }
..............................
procedure Change(Sender: TObject; var AValue: Integer);
published
{ Published declarations }
..............................
property OnChange:TChangeEvent read FChange write FChange;

end;

procedure Register;

implementation


constructor TChRuler.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
..........................
OnChange:=Change;

end;
................................

procedure TChRuler.Change(Sender: TObject; Var AValue:Integer);
Begin
//вызов обработчика пользователя
IF assigned(FChange) Then OnChange(self,AValue)
End;

end.

Ошибка у тебя в том, что в обработчике события ты вызываешь его же.
OnChange:=Change; - убери эту строчку, и вызывай метод Change уже на событие изменения ползунка линейки