abrir y cerrar form2 desde form1

[aitorqrv]

Hola estoy intentando abrir y cerrar un form (form2) automáticamente.

Para abrir el form2 que ya he creado con anterioridad utilizo:

procedure TForm1.FormCreate(Sender: TObject);
begin
 TForm2.Create(Self).Show;

end;

Y para cerrarlo he intentado utilizar esto en el form2:

procedure TForm2.FormCreate(Sender: TObject);
begin
  Sleep(1000);
  form2.close;
end;

He buscado por internet otras alternativas de crear un form en tiempo de ejecución y de como cerrarlo pero no consigo cerrado. En el form2 he colocado un boton y al hacer un onclick si le pongo close; el form2 se cierra correctamente.

Estoy utilizando lazarus 1.0.10 para mac

Un saludo y muchas gracias.

Si quereis ver el código fuente lo tengo aquí:

https://docs.google.com/file/d/0B2ZO_lvYiBaUQ2doVVpsd1k4T0U/edit?usp=sharing