事件触发

       TA = class(TB)
    private
         FC: TC ;
        FD: array[1..10] of TD;
   end;    TD = class(TE)
    private
    public
        procedure DoMouseLeave; override;
    end;
我想要在TD的DoMouseLeave事件里做关于FC的一些动作，比如移动FC的坐标。请问怎么做。用事件？
另：我不想把FC放在TD的类里。