//Colocar un timer con nombre timer1
//Poner de intervalo 30 en el timer1
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Width := 5;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if form1.Width <900 then
form1.Width := form1.Width +10;
end;