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:

program TEST;

uses
  Forms,
  Controls,
 

{$R *.RES}

begin
  ...
  // Mauszeiger auf SQL setzen
  Screen.Cursor := crSQLWait;

  // StartLogo kreieren uns anzeigen //
  LogoForm := TLogoForm.Create(Application);
  LogoForm.Show;  // zeigen
  LogoForm.Update;  // mit Images und Label

  LogoForm.ProgressBar1.Position := 20;
  Application.HelpFile    := 'Hilfedatei.hlp';
  Application.CreateForm(TForm, Form01);
  Application.CreateForm(TForm, Form02);
  LogoForm.ProgressBar1.Position := 40;
  Application.CreateForm(TForm, Form03);
  LogoForm.ProgressBar1.Position := 60;
  Application.CreateForm(TLaufanzeigeForm, LaufanzeigeForm);
  LogoForm.ProgressBar1.Position := 80;
  Application.CreateForm(TInfoForm, InfoForm);
  LogoForm.ProgressBar1.Position := 100;

  // StartLogo vertecken
  LogoForm.Hide;
  // StartLogo löschen
  LogoForm.Free;
  Screen.Cursor := crDefault;

  // Anwendung starten
  Application.Run;
end.					

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

program TGen;

uses
  Forms,
  UMain in 'UMain.pas' {Form_TGen},
  UAbout in 'UAbout.pas' {Form_Info};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm_TGen, Form_TGen);
  Application.CreateForm(TForm_Info, Form_Info); //Will ich vor Form_TGen anzeigen lassen
  Application.Run;
end.					

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

program TGen;

uses
  Forms,
  UMain in 'UMain.pas' {Form_TGen},
  UAbout in 'UAbout.pas' {Form_Info};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm_Info, Form_Info);  
  Application.CreateForm(TForm_TGen, Form_TGen);
  Application.Run;
end.					

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

procedure TForm_Info.FormShow(Sender: TObject);
begin
  Form_TGen.Hide;
  counter.Enabled:= true;
end;

procedure TForm_Info.counterTimer(Sender: TObject);
begin
  Form_TGen.Show;
  Form_Info.hide;
end;

procedure TForm_Info.FormHide(Sender: TObject);
begin
  counter.Enabled:= false;
end;					

1:
2:
3:
4:

procedure TForm_TGen.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  form_info.Close;
end;