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

{*******************************************************************************
*                                                                              *
* Programmende nur kontrolliert erlauben                                       *
*                                                                              *
*******************************************************************************}
procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if WindowState = wsMinimized Then  
    bpvClose := True; // funzt leider nicht

  If Not bpvClose Then
   Minimieren1Click(Sender);

  If bpvClose Then
    TaskBarRemoveIcon();
    
  CanClose := bpvClose;
end;					

1:
2:
3:
4:
5:

procedure TfrmMain.WMQueryEndSession (var Msg : TWMQueryEndSession);
begin
  Msg.Result := 1;
  bpvClose := True;
end;