FENÊTRE D'ACCUEIL AU LANCEMENT D'UN PROGRAMME

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Accueil};

{$R *.RES}

begin
  Application.Initialize;
  // Creation de la form Accueil
  with TAccueil.Create(nil) do
  try
    Show;   // Affiche l'écran de démarrage Accueil
    Update; // Force l'affichage  de Accueil
    // Creation des autres forms
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm2, Form2);
    Application.CreateForm(TForm3, Form3);
    Application.CreateForm(TForm4, Form4);
    Application.CreateForm(TForm5, Form5);
  finally
    Free;  // ferme et libère l'écran de démarrage Accueil
  end;
  Application.Run;
end.