From c0b6afa5709ba2ace552723cb3dc423bae35aa20 Mon Sep 17 00:00:00 2001
From: Merlijn Wajer <merlijn@wizzup.org>
Date: Mon, 21 Feb 2011 22:37:19 +0100
Subject: [PATCH] Simba: Few more cleanups.

---
 Projects/Simba/colourhistory.pas | 4 ++--
 Projects/Simba/framescript.pas   | 4 ++--
 Projects/Simba/simbaunit.pas     | 4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/Projects/Simba/colourhistory.pas b/Projects/Simba/colourhistory.pas
index 50f5361..81909f8 100644
--- a/Projects/Simba/colourhistory.pas
+++ b/Projects/Simba/colourhistory.pas
@@ -217,7 +217,7 @@ end;
 
 procedure WriteXMLData(n: TTreeNode;
                        XMLNode: TDOMNode; XMLDoc: TXMLDocument;
-                       var XMLChild: TDOMNode; var C: Integer);
+                       out XMLChild: TDOMNode; var C: Integer);
 
 var
    DDataNode, DataNode, Data: TDOMNode;
@@ -254,7 +254,7 @@ procedure WalkTree(Node: TTreeNode; XMLNode: TDOMNode; XMLDoc: TXMLDocument;
                    var C: Integer);
 var
    N: TTreeNode;
-   XMLChild, DDataNode, DataNode, Data: TDOMNode;
+   XMLChild: TDOMNode;
 
 begin
   N := Node.GetFirstChild;
diff --git a/Projects/Simba/framescript.pas b/Projects/Simba/framescript.pas
index 0e1d590..c8afee6 100644
--- a/Projects/Simba/framescript.pas
+++ b/Projects/Simba/framescript.pas
@@ -28,8 +28,8 @@ interface
 
 uses
   Classes, SysUtils, FileUtil, LResources, Forms, SynHighlighterPas, SynEdit, SynEditMarkupHighAll,
-  mmlpsthread,ComCtrls, SynEditKeyCmds, LCLType,MufasaBase, SynEditMarkupSpecialLine, Graphics, Controls, SynEditStrConst,
-  v_ideCodeInsight, v_ideCodeParser, CastaliaPasLexTypes, CastaliaSimplePasPar, SynEditHighlighter,synedittextbase,SynPluginSyncroEdit;
+  mmlpsthread,ComCtrls, SynEditKeyCmds, LCLType,MufasaBase, Graphics, Controls, SynEditStrConst,
+  v_ideCodeInsight, v_ideCodeParser,  SynEditHighlighter,SynPluginSyncroEdit;
 const
    ecCodeCompletion = ecUserFirst;
    ecCodeHints = ecUserFirst + 1;
diff --git a/Projects/Simba/simbaunit.pas b/Projects/Simba/simbaunit.pas
index 0d85f68..fe26100 100644
--- a/Projects/Simba/simbaunit.pas
+++ b/Projects/Simba/simbaunit.pas
@@ -461,7 +461,7 @@ type
     procedure SaveFormSettings;
     procedure LoadExtensions;
     procedure AddRecentFile(const filename : string);
-    procedure InitializeTMThread(var Thread : TMThread);
+    procedure InitializeTMThread(out Thread : TMThread);
     procedure HandleParameters;
     procedure OnSaveScript(const Filename : string);
     property Interpreter : Integer read GetInterpreter  write SetInterpreter;
@@ -1446,7 +1446,7 @@ begin
     RecentFileItems[len - 1-i].Caption:= ExtractFileName(RecentFiles[i]);
 end;
 
-procedure TSimbaForm.InitializeTMThread(var Thread: TMThread);
+procedure TSimbaForm.InitializeTMThread(out Thread: TMThread);
 var
   AppPath : string;
   ScriptPath : string;