16 files changed, 20 insertions, 15 deletions
diff --git a/examples/gui/alignment/aligntest.dpr b/examples/gui/alignment/aligntest.dpr
index 7099b761..60d98ba5 100644
--- a/examples/gui/alignment/aligntest.dpr
+++ b/examples/gui/alignment/aligntest.dpr
@@ -99,6 +99,7 @@ begin
   frm.Show;
 
   fpgApplication.Run;
+  frm.Free;
 end;
 
 begin
diff --git a/examples/gui/bevel/beveltest.lpr b/examples/gui/bevel/beveltest.lpr
index e339825e..287788ea 100644
--- a/examples/gui/bevel/beveltest.lpr
+++ b/examples/gui/bevel/beveltest.lpr
@@ -102,6 +102,7 @@ begin
   frm := TMainForm.Create(nil);
   frm.Show;
   fpgApplication.Run;
+  frm.Free;
 end;
 
 begin
diff --git a/examples/gui/filedialog/filedialog.lpr b/examples/gui/filedialog/filedialog.lpr
index 01793a6f..f1f06a04 100644
--- a/examples/gui/filedialog/filedialog.lpr
+++ b/examples/gui/filedialog/filedialog.lpr
@@ -92,6 +92,7 @@ begin
   frm := TMainForm.Create(nil);
   frm.Show;
   fpgApplication.Run;
+  frm.Free;
 end;
 
 begin
diff --git a/examples/gui/filegrid/filegrid.lpr b/examples/gui/filegrid/filegrid.lpr
index cd8f68ea..83185602 100644
--- a/examples/gui/filegrid/filegrid.lpr
+++ b/examples/gui/filegrid/filegrid.lpr
@@ -70,6 +70,7 @@ begin
   frm := TMainForm.Create(nil);
   frm.Show;
   fpgApplication.Run;
+  frm.Free;
 end;
 
 begin
diff --git a/examples/gui/fontselect/fontselect.lpr b/examples/gui/fontselect/fontselect.lpr
index cc9f1ca6..15514674 100644
--- a/examples/gui/fontselect/fontselect.lpr
+++ b/examples/gui/fontselect/fontselect.lpr
@@ -97,6 +97,7 @@ begin
   frm := TMainForm.Create(nil);
   frm.Show;
   fpgApplication.Run;
+  frm.Free;
 end;
 
 begin
diff --git a/examples/gui/gridtest/gridtest.lpr b/examples/gui/gridtest/gridtest.lpr
index ca8bd071..88bc77f1 100644
--- a/examples/gui/gridtest/gridtest.lpr
+++ b/examples/gui/gridtest/gridtest.lpr
@@ -153,6 +153,7 @@ begin
   frm := TMainForm.Create(nil);
   frm.Show;
   fpgApplication.Run;
+  frm.Free;
 end;
 
 begin
diff --git a/examples/gui/imgtest/bitmaptest.dpr b/examples/gui/imgtest/bitmaptest.dpr
index 380aa076..39906e87 100644
--- a/examples/gui/imgtest/bitmaptest.dpr
+++ b/examples/gui/imgtest/bitmaptest.dpr
@@ -69,6 +69,7 @@ begin
   frm := TMainForm.Create(nil);
   frm.Show;
   fpgApplication.Run;
+  frm.Free;
 end;
 
 
diff --git a/examples/gui/listviewtest/listviewtest.lpi b/examples/gui/listviewtest/listviewtest.lpi
index 8e8f6e62..d6e7b16f 100644
--- a/examples/gui/listviewtest/listviewtest.lpi
+++ b/examples/gui/listviewtest/listviewtest.lpi
@@ -25,10 +25,10 @@
     </RunParams>
     <RequiredPackages Count="2">
       <Item1>
-        <PackageName Value="fpgui_package"/>
+        <PackageName Value="fpgfx_package"/>
       </Item1>
       <Item2>
-        <PackageName Value="fpgfx_package"/>
+        <PackageName Value="fpgui_package"/>
       </Item2>
     </RequiredPackages>
     <Units Count="1">
diff --git a/examples/gui/listviewtest/listviewtest.lpr b/examples/gui/listviewtest/listviewtest.lpr
index 8e61d78f..d4eb30fc 100644
--- a/examples/gui/listviewtest/listviewtest.lpr
+++ b/examples/gui/listviewtest/listviewtest.lpr
@@ -26,11 +26,8 @@ type
                                    ItemIndex: Integer; Area:TfpgRect; var PaintPart: TfpgLVItemPaintPart);
     procedure ItemSelectionChanged(ListView: TfpgListView; Item: TfpgLVItem;
                                     ItemIndex: Integer; Selected: Boolean);
-
-    
   public
     constructor Create(AOwner: TComponent); override;
-    destructor  Destroy; override;
   end;
 
 { TMainForm }
@@ -188,14 +185,10 @@ begin
 
 end;
 
-destructor TMainForm.Destroy;
-begin
-  inherited Destroy;
-end;
-  
 begin
   fpgApplication.Initialize;
-  with TMainForm.Create(nil) do begin
+  with TMainForm.Create(nil) do
+  begin
     Show;
     fpgApplication.Run;
     Free;
diff --git a/examples/gui/menutest/menutest.lpr b/examples/gui/menutest/menutest.lpr
index cac4e8e7..1ed77135 100644
--- a/examples/gui/menutest/menutest.lpr
+++ b/examples/gui/menutest/menutest.lpr
@@ -92,6 +92,7 @@ begin
   frm := TMainForm.Create(nil);
   frm.Show;
   fpgApplication.Run;
+  frm.Free;
 end;
 
 begin
diff --git a/examples/gui/modalforms/modalforms.lpi b/examples/gui/modalforms/modalforms.lpi
index 38db8012..bd6fc386 100644
--- a/examples/gui/modalforms/modalforms.lpi
+++ b/examples/gui/modalforms/modalforms.lpi
@@ -1,7 +1,7 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="\"/>
+    <PathDelim Value="/"/>
     <Version Value="5"/>
     <General>
       <Flags>
@@ -9,7 +9,7 @@
       </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <IconPath Value=".\"/>
+      <IconPath Value="./"/>
       <TargetFileExt Value=""/>
     </General>
     <VersionInfo>
@@ -23,7 +23,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
     <RequiredPackages Count="1">
@@ -42,7 +42,6 @@
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
-    <PathDelim Value="\"/>
     <CodeGeneration>
       <Generate Value="Faster"/>
     </CodeGeneration>
diff --git a/examples/gui/modalforms/modalforms.lpr b/examples/gui/modalforms/modalforms.lpr
index c3faeaf3..91b1b840 100644
--- a/examples/gui/modalforms/modalforms.lpr
+++ b/examples/gui/modalforms/modalforms.lpr
@@ -157,6 +157,7 @@ begin
   frm := TMainForm.Create(nil);
   frm.Show;
   fpgApplication.Run;
+  frm.Free;
 end;
 
 begin
diff --git a/examples/gui/stdimages/stdimglist.lpr b/examples/gui/stdimages/stdimglist.lpr
index 25ed254c..1bcdcb91 100644
--- a/examples/gui/stdimages/stdimglist.lpr
+++ b/examples/gui/stdimages/stdimglist.lpr
@@ -86,6 +86,7 @@ begin
   frm := TMainForm.Create(nil);
   frm.Show;
   fpgApplication.Run;
+  frm.Free;
 end;
 
 begin
diff --git a/examples/gui/tabtest/tabtest.lpr b/examples/gui/tabtest/tabtest.lpr
index 47749e14..813c5b45 100644
--- a/examples/gui/tabtest/tabtest.lpr
+++ b/examples/gui/tabtest/tabtest.lpr
@@ -118,6 +118,7 @@ begin
   frm := TMainForm.Create(nil);
   frm.Show;
   fpgApplication.Run;
+  frm.Free;
 end;
 
 begin
diff --git a/examples/gui/timertest/timertest.lpr b/examples/gui/timertest/timertest.lpr
index dab53ad2..e4189a73 100644
--- a/examples/gui/timertest/timertest.lpr
+++ b/examples/gui/timertest/timertest.lpr
@@ -125,6 +125,7 @@ begin
   frm := TMainForm.Create(nil);
   frm.Show;
   fpgApplication.Run;
+  frm.Free;
 end;
 
 
diff --git a/examples/gui/treeviewtest/treeviewtest.lpr b/examples/gui/treeviewtest/treeviewtest.lpr
index 27b1a3e4..101668f2 100644
--- a/examples/gui/treeviewtest/treeviewtest.lpr
+++ b/examples/gui/treeviewtest/treeviewtest.lpr
@@ -67,6 +67,7 @@ begin
   frm := TMainForm.Create(nil);
   frm.Show;
   fpgApplication.Run;
+  frm.Free;
 end;
 
 begin