Que salte una ventana a los 10 segundos

[gontxalo]

Hola.
En una aplicación vcl quiero que al ejecutarse, salte el form1, pero que el form2 salte encima del 1 y que el usuario no pueda manejar el form1 hasta que cierre el dos. Para ello he puesto el siguiente code:

procedure TForm1.FormActivate(Sender: TObject);
begin
Form2.ShowModal;
end;

Funciona.

Pero quiero que un Form3 salte a los 10 segundos de que el Form 1 esté abierto. Esto como lo puedo hacer?