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

procedure TfrmHauptMenue.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Prg_Ende: Boolean;
begin
  Prg_Ende:= FALSE;
  TFormPassWort.PassWortFreigabe (PRG_Ende); // Aufruf des Paßwort-Forms
  if Prg_Ende then
  begin
    Action:= caFree;  // Erst, wenn das richtige Paßwort eingegeben worden ist.
  end else
  begin
    Action := caNone; // Zurück zum Programm
  end;
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:
35:
36:
37:
38:
39:
40:

type
  TFormPassWort = class(TForm)
    StatusBar1: TStatusBar;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Edit1Change(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    class function PassWortFreigabe (out Rueckgabe : Boolean): Boolean;
  end;

implementation

{$R *.dfm}

class function TFormPassWort.PassWortFreigabe (out Rueckgabe : Boolean): Boolean;
begin
  with TFormPassWort.Create(nil) do
    try
      Result := ShowModal=mrok;  // ModalResult auf mrOk
      if Result then
        Rueckgabe := TRUE            // Rückgabe-Wert
       else
        Rueckgabe := FALSE;
     finally
       free;                    // Speicherfreigabe
   end;
end;

procedure TFormPassWort.Edit1Change(Sender: TObject);
begin
  if Edit1.Text = 'P' then   // Das Paßwort muss noch geändert werden.
    BitBtn3.Enabled := TRUE; // Der Button wird freigegeben
end;

end.                    

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

procedure TForm1.CloseQuery;
begin
  MyPasswordDLG := TPasswordDLG.Create(self);
  try
    MyPasswordDLG.ShowModal;
    CanClose := MyPasswordDLG.PassWortFreigabe;
  finally
    FreeAndNil(MyPasswordDLG);
  end;
end;