unit1.pas: erst speichern, dann Ende bekannt geben

1 files changed, 2 insertions, 2 deletions

diff --git a/unit1.pas b/unit1.pas
index 64f5f3c..78fd6ff 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -182,14 +182,14 @@ end;
 
 procedure TForm1.FormDestroy(Sender: TObject);
 begin
-  if fileExists(pidDatei) then
-    deleteFile(pidDatei);
   if not fehler then begin
     if pegelDatei<>'' then
       pegel.speichern(pegelDatei);
     if wetterDatei<>'' then
       wetter.speichern(wetterDatei);
   end;
+  if fileExists(pidDatei) then
+    deleteFile(pidDatei);
   pegel.free;
   wetter.free;
 end;