Создание нового класса на базе существующего

[SpiritSm]

У меня следующая проблема - требуется на форме создавать n--ое количество объектов типа Shape, n - заранее не известно и при этом обрабать двойное нажатие по мыши на каждой Shape. Я объявил новый класс, свой с типом TShape, и написал доп процедуру
procedure DatchikMnemoClass.OnDbClick(Sender: TObject);

но почемуто данное событие - а именно обработка по двойному нажатию не происходит? Может кто помочь?

[_SERGEYX_]

Имеем какую-то процедуру

procedure TForm1.MyProcedure;
begin
//
end;

При создании шейпа связываем двойной клик с этой процедурой

var sh: TShape;
begin
sh:=TShape.Create(self);
sh.OnDbClick:= MyProcedure;
end;