Hi! Im Ereignis "OnCloseQuery" eines TForms gibt es die Variable "CanClose". Wenn du CanClose auf False setzt, dann kann dein Programm nicht beendet werden. Du könntest also eine Variable (z.B. "beenden" [Boolean natürlich]) erstellen, die anfangs false ist. Wenn du nun einen Button (oder mit was du dein prog auch immer beenden willst) drückst, kannst du die Variable auf true setzen. Im OnCloseQuery Ereignis schreibst du dann nur noch:
CanClose := Beenden;
Man liest sich, Stanlay
