没用过col中的button,但是我想你说的问题的原因是,第一次点击由Col接受了,第二次点击才由col中的button接受。你沿着这个思路想想,或许有办法。
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
             毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————