FMX就像VCL中的动画一样

Question

我想尽可能平滑地将面板宽度从300调整为0。

在Firemonkey中，您可以使用Panel1.AnimateFloat('Width', 0)。

我目前正在做的是：

while Panel1.Width > 0 do
begin
   Panel1.Width := Panel1.Width - 1;
   Application.ProcessMessages;
end;

但我认为这不是正确的做法。

也许计时器是正确的方法吗？但我不想为每个动画创建一个计时器。