[cd20]

есть собственный компонент собирающий некие данные и отдающий их:

Код:

type
  TNewDataTable = procedure (Sender: TObject) of object;
  TData3Table = class(TComponent)
  private
   ...
   ...
  public
    constructor Create(AOwner:TComponent); override;
   destructor Destroy; override;
    //Получение таблицы
    procedure GetTable;
    ...
    ...
  published
    //событие готовности данных (можно забирать)
    property OnNewDataTable: TNewDataTable read FNewDataTable write FNewDataTable;
  end;

Есть потомок TStringGrid'а в который должны загрузиться готовые данные из TData3Table:

Код:

type
  TPtrStringGrid = class(TStringGrid)
  private
    //компонент таблицы 
    Data3Table: TData3Table;
    procedure OnNewDataTable(Sender: TObject);
    procedure SetData3Table(const Value: TData3Table);
  public
    constructor Create(AOwner:TComponent); override;
    destructor Destroy; override; 
    ...
  published
    ...
    свойство-объект, приязка в Design Time
    property Table: TData3Table read Data3Table write SetData3Table;
  end;  

....

procedure TPtrStringGrid.SetData3Table(const Value: TData3Table);
begin
  if Data3Table = Value then Exit;
  Data3Table := Value;
  Data3Table.OnNewDataTable := OnNewDataTable;
end;

Все работает, почти...возник один непонятный момент:
Кидаю два TPtrStringGrid'а и один TData3Table. Оба грида завязываю на один и тот же TData3Table. Ожидалось, что по событию OnNewDataTable оба грида выберут свою часть данных из общей кучи и отобразят. В реальности отрабатывает только один грид, второй нет. В чем проблема?