procedure TPreventSize.SetBounds(ALeft: integer; ATop: integer; AWidth: integer; AHeight: integer); begin if csDesigning in ComponentState then begin AWidth:=50; AHeight:=50; end; inherited; end;