Создание динамического TNotifyEvent.

[alextrof94]

Сообщение от evg_m

type 
  TMyclass =class
  private
  protected
    procedure SetData(r: integer);
  public
    property width: integer;
  end;

  TMyRecord =record
    procedure SetData(r: integer);
  public
    property width: integer;
  end;

c record классами никогда не работал, т.ч. могу и ошибаться.
Но информации к размышлению думаю достаточно.

Сам уж разобрался) Спасибо)