[rrr]

Это MADMAN написал про OnMouseWheel, наверное, для примера.

Но не объясните ли подробнее? Вот я создаю объект:

Код:

  TPost.Create(Self).Name := ('Post'+inttostr(nPostCounterMax) );
  with TPost (FindComponent('Post' + IntToStr(nPostCounterMax))) do begin
      Parent := self;
      Tag:=nPostCounterMax;
      Color :=clSilver;
      Left := 20 +  + nCellWidth + nCellHorInterval;
      Top  := nPostCounterMax* (nCellHeight + nCellVerInterval);
      Visible:=true;
      OnMouseDown:= TPost.OnMouseDown;
    end;

На такую конструкцию ругается. Где надо прописать правильную?