1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

program Editor;

uses
  Forms,
  main in 'src\main.pas' {Form1},
  loadingunit in 'src\loadingunit.pas' {LoadingScreen};

{$R res\Editor.res}

begin
  Application.Initialize;
  Application.CreateForm(TLoadingScreen, LoadingScreen);
  Application.CreateForm(TForm1, Form1);
  Form1.Hide; 
  Application.Run;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

unit loadingunit;


uses main;

{$R *.dfm}

// nur zum testen
procedure TLoadingScreen.Timer1Timer(Sender: TObject);
begin
  Progressbar1.Max := 100;
  Progressbar1.Position := Progressbar1.Position + 1;
  if Progressbar1.Position = 100 then begin
    Timer1.Enabled := FALSE;
    Form1.Show;
    LoadingScreen.Hide;
  end;
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
close;// <- geht nicht

Application.Close;// <- geht auch nicht
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

program Editor;

uses
  Forms,
  main in 'src\main.pas' {Form1},
  loadingunit in 'src\loadingunit.pas' {LoadingScreen};

{$R res\Editor.res}

begin
  LoadingScreen := TLoadingScreen.Create(Application); //Zur Laufzeit erstellen
  LoadingScreen.Show;
  try
    Application.MainForm := Form1;  //Hier und in den nächsten 3 Zeilen braucht er zum laden, und während er lädt soll er den startbildschirm anzeigen
    Application.Initialize;  
    Application.CreateForm(TForm1, Form1);  //wichtig ist, dass hier nicht Application.CreateForm(TLoadingScreen,LoadingScreen) steht!!!!!
  finally
    LoadingScreen.Hide;
    LoadingScreen.Free; //Freigeben
    Application.Run; //und dann gehts los
  end;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:

program Elektro;

uses
  Forms,
  ElektroU in 'ElektroU.pas' {Form1},
  exitdial in 'exitdial.pas' {Exitdia},
  schaltung in 'schaltung.pas' {Form2},
  splash in 'splash.pas' {Form3};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'Elektro';
  Form3:=Tform3.create(Application);
  form3.PageNo:=0;
  form3.TotalPages:=3;
  form3.doupdate;
  Application.CreateForm(TForm1, Form1);
  form3.DoUpdate;
  Application.CreateForm(TExitdia, Exitdia);
  form3.DoUpdate;
  Application.CreateForm(TForm2, Form2);
  form3.free;
  form3:=nil;
  Application.Run;
end.

//splash-unit:

...

type
  TForm3 = class(TForm)
    ...
  public
    { Public-Deklarationen }
    PageNo     : Integer;
    TotalPages : Integer;
    procedure DoUpdate;
  end;

var
  Form3: TForm3;

implementation

{$R *.DFM}
procedure TForm3.DoUpdate;
var i:integer;
begin
  { increment our pageno variable }
  inc(PageNo);  { show splash screen on first variable increment }
  if PageNo = 1 then  Show;
  { update our TGauge }
  for i:=1 to 10 do
  begin
    coolprogressbar1.position := Trunc((((pageno/10)*i)/TotalPages)*100);
    { update our splash screen }
    Update;
    if pageno<3 then sleep(50) else sleep(10);
  end;
  Application.ProcessMessages;
end;

end.					

1:
2:
3:
4:
5:
6:
7:

uses
 loadingunit;
...
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 LoadingScreen.Close;
end;