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

var
  I: Integer;
begin
  for I := 0 to Application.ComponentCount - 1 do
    if (Application.Components[I] is TFrame) then
      (Application.Components[I] as TFrame).Parent := nil;                    

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:

program Morphium;

uses
  Forms,
  Controls,
  Morphium_MainForm in 'Morphium_MainForm.pas' {MainForm},
  Morphium_NewForm in 'Morphium_NewForm.pas' {NewForm},
  Morphium_ProjectFrame in 'Morphium_ProjectFrame.pas' {ProjectFrame: TFrame},
  Morphium_SetupFrame in 'Morphium_SetupFrame.pas' {SetupFrame: TFrame},
  Morphium_InfoFrame in 'Morphium_InfoFrame.pas' {InfoFrame: TFrame},
  Morphium_StartFrame in 'Morphium_StartFrame.pas' {StartFrame: TFrame},
  Morphium_InfoForm in 'Morphium_InfoForm.pas' {InfoForm},
  Morphium_PicturesFrame in 'Morphium_PicturesFrame.pas' {PicturesFrame: TFrame},
  Morphium_PictureFrame in 'Morphium_PictureFrame.pas' {PictureFrame: TFrame};

{$R *.RES}

begin
  // Anwendung initialisieren
  Application.Initialize;
  // Frames erzeugen
  Application.CreateForm(TProjectFrame, ProjectFrame);
  Application.CreateForm(TSetupFrame, SetupFrame);
  Application.CreateForm(TInfoFrame, InfoFrame);
  Application.CreateForm(TStartFrame, StartFrame);
  Application.CreateForm(TPicturesFrame, PicturesFrame);
  Application.CreateForm(TPictureFrame, PictureFrame);
  // Align auf Client setzen (Zur Entwurfszeit ist es einfacher,
  // mit alNone zu arbeiten)
  ProjectFrame.Align := alClient;
  SetupFrame.Align := alClient;
  InfoFrame.Align := alClient;
  StartFrame.Align := alClient;
  PicturesFrame.Align := alClient;
  PictureFrame.Align := alClient;
  // Formulare erzeugen
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TNewForm, NewForm);
  Application.CreateForm(TInfoForm, InfoForm);
  // Anwendung starten
  Application.Run;
end.