Forms Delphi

Title: animate a form?
{
Very simple but nice method to animate your form!
Sehr simple Methode, um auf Knopfdruck und einer Animation
jede Formfenstergröße zu verändern. Sieht echt nicht schlecht aus!
}
procedure TForm1.Button2Click(Sender: TObject);
var
ani: Integer,
begin
Form1.Width := 372;
ani := 372;
repeat
ani := ani + 1;
Form1.Width := ani;
until ani = 656;
end;
end;