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

program Schwupp;

uses
  Forms,
  Main in 'Main.pas' {F_Main},
  Passwortabfrage in 'Passwortabfrage.pas' {F_Passwortabfrage};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'Schwupp';
  Application.CreateForm(TF_Main, F_Main);
  Application.CreateForm(TF_Passwortabfrage, F_Passwortabfrage);
  Application.Run;
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:

var
  F_Passwortabfrage: TF_Passwortabfrage;

implementation

uses
  Main;

{$R *.dfm}

procedure TF_Passwortabfrage.Button_BestaetigenClick(Sender: TObject);
begin
  if EDIT_Passwort.Text <> 'passwort' then begin
    Close;
  end;
end;

procedure TF_Passwortabfrage.Button_AbbrechenClick(Sender: TObject);
begin
  Close;
end;

procedure TF_Passwortabfrage.EDIT_PasswortKeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if Key = VK_Return then begin
    Button_BestaetigenClick(nil);
  end;
  if Key = VK_ESCAPE then begin
    Button_AbbrechenClick(nil);
  end;
end;

end.					

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

procedure TF_Main.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  F_Passwortabfrage := TF_Passwortabfrage.Create(F_Main);
  try
    F_Passwortabfrage.ShowModal;
  finally
    F_Passwortabfrage.Free;
  end;

[...]					

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

uses ....,Controls,


{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(TPasswortForm, PasswortForm);
  case PasswortForm.ShowModal of 
    mrOK : begin  //Passwort richtig
             PasswortForm.Free;
             Application.CreateForm(TProgramForm,ProgramForm);
           end;
    mrCancel : PasswortForm.Free; //Passwort falsch / Programm wird beendet
  end;
  Application.Run;
end;					

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

Uses
    Forms,
    Unit1 In 'Unit1.pas' {Form1}, //<--Hauptform
    Unit2 In 'Unit2.pas' {Form2}, //<--Passwortform
    Controls; //Für mrOK. Alternativ mrOK mit 1 ersetzen.


Begin
    Application.Initialize;
    Application.CreateForm(TForm2, Form2);
    If Form2.ShowModal = mrOK Then
    Begin
        Form2.Free;
        Application.CreateForm(TForm1, Form1);

        Form1.Show;
        Application.Run;
    End
    Else
        Application.Terminate;
End.