closeFile() added, so it won't crash under whindows

2 files changed, 61 insertions, 58 deletions

diff --git a/raetsel.lps b/raetsel.lps
index e6d0de2..65586a3 100644
--- a/raetsel.lps
+++ b/raetsel.lps
@@ -2,14 +2,14 @@
 <CONFIG>
   <ProjectSession>
     <Version Value="10"/>
-    <BuildModes Active="winxp_32bits"/>
+    <BuildModes Active="linux_64bits"/>
     <Units Count="20">
       <Unit0>
         <Filename Value="raetsel.lpr"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="2"/>
         <CursorPos X="30" Y="19"/>
-        <UsageCount Value="64"/>
+        <UsageCount Value="65"/>
         <Loaded Value="True"/>
       </Unit0>
       <Unit1>
@@ -18,10 +18,11 @@
         <ComponentName Value="Form1"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <IsVisibleTab Value="True"/>
+        <TopLine Value="15"/>
         <CursorPos X="59" Y="55"/>
-        <UsageCount Value="64"/>
+        <UsageCount Value="65"/>
         <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit1>
       <Unit2>
         <Filename Value="unit2.pas"/>
@@ -32,24 +33,25 @@
         <UnitName Value="Unit2"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="11" Y="27"/>
-        <UsageCount Value="63"/>
+        <UsageCount Value="64"/>
       </Unit2>
       <Unit3>
         <Filename Value="raetselunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="812"/>
-        <CursorPos X="50" Y="844"/>
-        <UsageCount Value="58"/>
+        <TopLine Value="872"/>
+        <CursorPos X="30" Y="904"/>
+        <UsageCount Value="59"/>
         <Loaded Value="True"/>
       </Unit3>
       <Unit4>
         <Filename Value="raetselunit.inc"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="6"/>
-        <TopLine Value="373"/>
-        <CursorPos X="27" Y="392"/>
-        <UsageCount Value="44"/>
+        <TopLine Value="260"/>
+        <CursorPos Y="277"/>
+        <UsageCount Value="45"/>
         <Loaded Value="True"/>
       </Unit4>
       <Unit5>
@@ -161,123 +163,123 @@
     </OtherDefines>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="46" Column="44" TopLine="13"/>
+        <Filename Value="../units/mystringlistunit.pas"/>
+        <Caret Line="58" Column="59" TopLine="22"/>
       </Position1>
       <Position2>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="67" Column="45" TopLine="34"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="8" Column="71"/>
       </Position2>
       <Position3>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="72" Column="42" TopLine="39"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="48" TopLine="23"/>
       </Position3>
       <Position4>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="824" Column="55" TopLine="808"/>
+        <Caret Line="812" Column="77" TopLine="787"/>
       </Position4>
       <Position5>
-        <Filename Value="raetselunit.inc"/>
-        <Caret Line="766" Column="55" TopLine="758"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="78" Column="14" TopLine="55"/>
       </Position5>
       <Position6>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="555" Column="43" TopLine="547"/>
+        <Caret Line="404" Column="22" TopLine="393"/>
       </Position6>
       <Position7>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="566" Column="21" TopLine="547"/>
+        <Caret Line="405" Column="38" TopLine="393"/>
       </Position7>
       <Position8>
-        <Filename Value="raetsel.lpr"/>
-        <Caret Line="13" Column="66"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="406" Column="31" TopLine="393"/>
       </Position8>
       <Position9>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="4" Column="57"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="407" Column="14" TopLine="393"/>
       </Position9>
       <Position10>
-        <Filename Value="raetselunit.inc"/>
-        <Caret Line="766" Column="55" TopLine="758"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="408" Column="14" TopLine="393"/>
       </Position10>
       <Position11>
-        <Filename Value="raetselunit.inc"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="413" Column="19" TopLine="393"/>
       </Position11>
       <Position12>
-        <Filename Value="raetselunit.inc"/>
-        <Caret Line="738" Column="22" TopLine="706"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="419" Column="46" TopLine="393"/>
       </Position12>
       <Position13>
-        <Filename Value="raetsel.lpr"/>
-        <Caret Line="13" Column="66"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="423" Column="30" TopLine="396"/>
       </Position13>
       <Position14>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="563" Column="62" TopLine="525"/>
+        <Caret Line="89" Column="29" TopLine="69"/>
       </Position14>
       <Position15>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="169" Column="46" TopLine="152"/>
+        <Caret Line="423" Column="32" TopLine="391"/>
       </Position15>
       <Position16>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="170" Column="21" TopLine="152"/>
+        <Caret Line="464" Column="16" TopLine="438"/>
       </Position16>
       <Position17>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="2"/>
+        <Caret Line="92" Column="34" TopLine="72"/>
       </Position17>
       <Position18>
-        <Filename Value="raetselunit.inc"/>
-        <Caret Line="714" Column="70" TopLine="706"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="448" Column="22" TopLine="416"/>
       </Position18>
       <Position19>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="170" Column="21" TopLine="138"/>
+        <Caret Line="464" Column="24" TopLine="432"/>
       </Position19>
       <Position20>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="42" Column="38" TopLine="22"/>
+        <Caret Line="544" Column="14" TopLine="513"/>
       </Position20>
       <Position21>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="227" Column="39" TopLine="196"/>
+        <Caret Line="101" Column="36" TopLine="83"/>
       </Position21>
       <Position22>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="732" Column="46" TopLine="701"/>
+        <Caret Line="544" Column="24" TopLine="512"/>
       </Position22>
       <Position23>
-        <Filename Value="raetselunit.inc"/>
-        <Caret Line="714" Column="61" TopLine="706"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="895" Column="31" TopLine="872"/>
       </Position23>
       <Position24>
-        <Filename Value="raetselunit.inc"/>
-        <Caret Line="688" Column="63" TopLine="678"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="896" Column="49" TopLine="872"/>
       </Position24>
       <Position25>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="812" Column="66" TopLine="808"/>
+        <Caret Line="900" Column="51" TopLine="872"/>
       </Position25>
       <Position26>
-        <Filename Value="raetsel.lpr"/>
-        <Caret Line="19" Column="30"/>
+        <Filename Value="raetselunit.inc"/>
+        <Caret Line="392" Column="27" TopLine="373"/>
       </Position26>
       <Position27>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="58" Column="59" TopLine="22"/>
+        <Filename Value="raetselunit.inc"/>
       </Position27>
       <Position28>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret TopLine="163"/>
+        <Filename Value="raetselunit.inc"/>
+        <Caret Line="16" Column="36"/>
       </Position28>
       <Position29>
-        <Filename Value="../units/matheunit.pas"/>
-        <Caret Line="8" Column="71"/>
+        <Filename Value="raetselunit.inc"/>
+        <Caret Line="283" Column="23" TopLine="249"/>
       </Position29>
       <Position30>
-        <Filename Value="../units/matheunit.pas"/>
-        <Caret Line="48" TopLine="23"/>
+        <Filename Value="raetselunit.inc"/>
+        <Caret Line="279" Column="42" TopLine="259"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
diff --git a/raetselunit.inc b/raetselunit.inc
index 190ab73..90315bf 100644
--- a/raetselunit.inc
+++ b/raetselunit.inc
@@ -272,6 +272,7 @@ begin
         for i:=0 to length(buff)-1 do
           for j:=0 to min(7,length(EMoeglich)-8*i-1) do
             EMoeglich[8*i+j]:=odd(buff[i] shr j);
+        closeFile(dat);
         exit;
       end
       else