procedure TForm1.Button1Click(Sender: TObject);
var
Form2:TForm2;
h,w,l,t:integer;
begin
Form2:=TForm2.Create(nil);
try
h:=Form2.Height;
w:=Form2.Width;
l:=Form2.Left;
t:=Form2.Top;
Form2.Height:=1;
Form2.Width:=1;
Form2.Left:=l+ (w div 2);
Form2.Top:=t+ (h div 2);
TAnimator.AnimateInt(Form2,'Height',h,1);
TAnimator.AnimateInt(Form2,'Width',w,1);
TAnimator.AnimateInt(Form2,'Left',l,1);
TAnimator.AnimateInt(Form2,'Top',t,1);
Form2.ShowModal;
finally
Form2.Free;
end;
end;
"В лоб" как-то так