repeat

if form2.height+(maxy div 5)>=maxy then form2.height:=maxy
else form2.height:=form2.Height+(maxy div 5);

if form2.Width+(maxx div 5)>=maxx then form2.width:=maxx
else form2.width:=form2.Width+(maxx div 5);

form2.Left:=(screen.Width-form2.Width) div 2;
form2.Top:=(screen.Height-form2.Height) div 2;

sleep(10);

until (form2.width=maxx) and (form2.height=maxy);
end;