unit1.pas: erst speichern, dann Ende bekannt geben

4 files changed, 12 insertions, 8 deletions

diff --git a/unit1.lfm b/unit1.lfm
index 4240a0b..02b7e61 100644
--- a/unit1.lfm
+++ b/unit1.lfm
@@ -12,7 +12,7 @@ object Form1: TForm1
   OnDestroy = FormDestroy
   OnKeyDown = FormKeyDown
   OnShow = FormShow
-  LCLVersion = '1.8.0.6'
+  LCLVersion = '2.0.2.0'
   object Image1: TImage
     Left = 0
     Height = 208
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;
diff --git a/wetter.lps b/wetter.lps
index 41facc2..46ff0a9 100644
--- a/wetter.lps
+++ b/wetter.lps
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectSession>
-    <Version Value="10"/>
+    <Version Value="11"/>
     <BuildModes Active="Default"/>
     <Units Count="17">
       <Unit0>
@@ -18,8 +18,9 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
-        <TopLine Value="111"/>
-        <CursorPos Y="136"/>
+        <IsVisibleTab Value="True"/>
+        <TopLine Value="160"/>
+        <CursorPos Y="193"/>
         <UsageCount Value="60"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -57,9 +58,8 @@
       </Unit5>
       <Unit6>
         <Filename Value="pegelunit.pas"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="5"/>
-        <TopLine Value="600"/>
+        <TopLine Value="415"/>
         <CursorPos X="64" Y="636"/>
         <UsageCount Value="29"/>
         <Loaded Value="True"/>
@@ -255,5 +255,9 @@
         <Caret Line="635" Column="54" TopLine="599"/>
       </Position29>
     </JumpHistory>
+    <RunParams>
+      <FormatVersion Value="2"/>
+      <Modes Count="0" ActiveMode="default"/>
+    </RunParams>
   </ProjectSession>
 </CONFIG>
diff --git a/wetter.res b/wetter.res
index 877868c..f6e8499 100644
--- a/wetter.res
+++ b/wetter.res