Delphi: smooth collapse/expand form
<p>Need your help (I'm stuck on searching for). I'm on Delphi Seattle, trying to make smooth resizing bottom of my form. In my case "resizing" is just a little collapse/expand like this:</p>

<p><a href="https://i.stack.imgur.com/4gFrr.gif" rel="noreferrer"><img src="https://i.stack.imgur.com/4gFrr.gif" alt="enter image description here"></a></p>

<p>How can I realize that?</p>

<p>I've tried use a TTimer:</p>

<pre><code>procedure TForm1.Timer1Timer(Sender: TObject);
var
h, t: integer;
begin
t := Button10.Top + Button10.Height + 10; //slide TForm from/to this point
if t &gt; h then
begin
h := h + 1;
Form1.Height := h;
end
else
begin
Timer1.Enabled := false;
end;
end;
</code></pre>

<p>... but it's looks very simple (no acceleration/deceleration) and works slow even with small interval.</p>