Prüfung auf leere Zelle endet nicht nach Fund

[Dalai]

Ähm, dein Code ist schlechter Stil. Es gibt nicht zum Spaß die Methode FormCloseQuery, die eine Variable CanClose zur Verfügung stellt, die man entsprechend setzen kann. Application.Terminate sollte man vermeiden, ein TForm.Close ist (nahezu) immer vorzuziehen!

Davon abgesehen spielt es bei FormCloseQuery keine Rolle, auf welche Weise das Programm beendet wird (Schließen-Knopf, Button zum Schließen, Alt+F4 usw), die Methode wird immer ausgeführt und erst wenn die ihr OK gibt - über die Variable CanClose, wird beendet.

Ach, noch etwas: warum verwendest du bei Application.MessageBox Zahlen statt der Konstanten? Damit weiß kein anderer was anzufangen (und muss erst nachschauen, welche Zahl was bedeutet) und du selbst in einigen Monaten auch nicht mehr.

MfG Dalai