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

with TWaitForm.Create(nil) do
try
  ActionLabel.Caption := 'initialisiere'; // Label auf der "WaitForm"
  pb1.Position := 0; // Progressbar auf der "WaitForm"
  Show;
  Update;

  Application.CreateForm(TButlerForm, ButlerForm); // 1. Form
  pb1.Position := MulDiv( 1,100,10); // Progressbar anpassen

  { ... }

  Application.CreateForm(TPropertiesTableForm, PropertiesTableForm); // 10. Form
  pb1.Position := MulDiv(10,100,10); // Progressbar
finally
  Free;
end;
Application.Run;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
  position: LongInt;
begin
  position:= MulDiv(1,100,10);
  Label1.Caption:= IntToStr(position);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

  ...
  If prog_ini.ShowTitel Then
  begin
    TitelWnd:=TTitelWnd.Create(Application);
    TitelWnd.Show;
    Application.ProcessMessages; // --> Wichtig, sonst wird nichts angezeigt!!
  end; // if
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
  ...