title: TTimer as a component property issue
body: <p>I have created a new component from (TShape ), and I make a Timer property as the next ::</p>
  <pre><code>property Timer:TTimer read FDeviceTimer write SetDeviceTimer ;
  </code></pre>
  <p>The purpose from this timer is that I want it to change the component height in the design time by using the next procedure :</p>
  <pre><code>procedure TFireDeviceWTimer.OnTimerRepaint(Sender: TObject);
  begin
      //==================
      if ChangDim then begin
          Height:=Height+10;
          //Repaint;
          Sleep(FDeviceTimer.Interval);
          ChangDim:=False;
      end 
      else begin
          Height:=Height-10;
          //Repaint;
          Sleep(FDeviceTimer.Interval);
          ChangDim:=true;
      end;
  end;
  </code></pre>
  <p>and it works good , but the issue that I have noted after using it in the run time , that it makes the application too slow ...</p>
  <p>can anybody explain the reason &amp; the solution for such issue ..</p>
  <p>Thank u.</p>