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

program Matrix;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$E scr}

{$R *.res}

var
  str:string;
begin
  Application.Initialize;
  Str := Copy(ParamStr(1), 1, 2);
  if Str = '/c' then Application.CreateForm(TForm2, Form2)
  else Application.CreateForm(TForm1, Form1);
  Application.Run;
end.					

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

begin
  Application.Initialize;
  Str := Copy(ParamStr(1), 1, 2);
  if Str = '/c' then 
     begin 
     Application.CreateForm(TForm2, Form2); 
     end
  else 
     begin 
     Application.CreateForm(TForm1, Form1); 
     end;
  Application.Run;
end.					

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

procedure MyCreateForm(FormClass: TFormClass; var Reference);
begin
  Application.CreateForm(FormClass, Reference);
end;

begin
  Application.Initialize;
  if Condition then
    MyCreateForm(TForm1, Form1)
  else
    MyCreateForm(TForm2, Form2);
  Application.Run;
end.