V našem příkladu

se po stisku tlačítka objeví další okno výše popsaným způsobem. Úplně stejně můžete zařídit, aby se okno animovalo i při jeho uzavření, ale samozřejmě musíte použít opačný postup, tj. z původní velikosti jej zmenšovat, až úplně zmizí.
Zde tedy malá ukázka, kterou se můžete nechat inspirovat při vlastních pokusech:
procedure TForm1.Button1Click(Sender: TObject);

var maxx,maxy:integer;

begin
maxx:=form2.width;
maxy:=form2.height;
form2.width:=112;
form2.height:=27;
form2.Left:=(screen.Width-form2.Width) div 2;
form2.Top:=(screen.Height-form2.Height) div 2;
form2.show;