Как заставить код компонента работать только в дизайне?

if csDesigning in ComponentState then
begin
... код, работающий только в дизайне ...
end; 

Взято из Советов по Delphi от Валентина Озерова

Сборник Kuliba

в модификации Vit