program Project1;

uses
Forms,
Windows, //Ajout de l'unité "Windows" pour la fonction sleep
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};

{$R *.RES}

begin
Form2:= TForm2.Create(Application); //Crée la fenêtre Form2
try
Form2.Show; //Affiche Form2
Application.Initialize;
Form2.Refresh; //Redessine Form2
Sleep(3000); //Attend 3 secondes
Application.CreateForm(TForm1, Form1);
Form2.Hide; //Cache la form2
finally
Form2.Free; //Libère Form2
end;
Application.Run;
end.