diff --git a/Units/MMLAddon/PSInc/Wrappers/dtm.inc b/Units/MMLAddon/PSInc/Wrappers/dtm.inc
index f028db9..0879198 100644
--- a/Units/MMLAddon/PSInc/Wrappers/dtm.inc
+++ b/Units/MMLAddon/PSInc/Wrappers/dtm.inc
@@ -49,14 +49,14 @@ begin
     result := MFinder.FindDTMRotated(MDTM.GetDTM(DTM), x, y, xs, ys, xe, ye, sAngle, eAngle, aStep, aFound,false);
 end;
 
-function ps_FindDTMsRotatedAlternating(DTM: Integer; var Points: TPointArray; xs, ys, xe, ye: Integer; sAngle, eAngle, aStep: Extended; out aFound: T2DExtendedArray): Boolean; extdecl;
+function ps_FindDTMsRotatedAlternating(DTM: Integer; var Points: TPointArray; xs, ys, xe, ye: Integer; sAngle, eAngle, aStep: Extended; var aFound: T2DExtendedArray): Boolean; extdecl;
 begin
   with CurrThread.Client do
     result := MFinder.FindDTMsRotated(MDTM.GetDTM(DTM), Points, xs, ys, xe, ye,
                                   sAngle, eAngle, aStep, aFound, true);
 end;
 
-function ps_FindDTMsRotatedSE(DTM: Integer; var Points: TPointArray; xs, ys, xe, ye: Integer; sAngle, eAngle, aStep: Extended; out aFound: T2DExtendedArray): Boolean; extdecl;
+function ps_FindDTMsRotatedSE(DTM: Integer; var Points: TPointArray; xs, ys, xe, ye: Integer; sAngle, eAngle, aStep: Extended; var aFound: T2DExtendedArray): Boolean; extdecl;
 begin
   with CurrThread.Client do
     result := MFinder.FindDTMsRotated(MDTM.GetDTM(DTM), Points, xs, ys, xe, ye,
diff --git a/Units/MMLAddon/PSInc/Wrappers/file.inc b/Units/MMLAddon/PSInc/Wrappers/file.inc
index d130580..708dd27 100644
--- a/Units/MMLAddon/PSInc/Wrappers/file.inc
+++ b/Units/MMLAddon/PSInc/Wrappers/file.inc
@@ -51,7 +51,7 @@ begin
   Result := CurrThread.Client.MFiles.FileSizeMuf(FileNum);
 end;
 
-function ps_ReadFileString(FileNum: Integer; out s: string; x: Integer): Boolean; extdecl;
+function ps_ReadFileString(FileNum: Integer; var s: string; x: Integer): Boolean; extdecl;
 begin
   Result := CurrThread.Client.MFiles.ReadFileString(FileNum, s, x);
 end;
diff --git a/Units/MMLAddon/PSInc/Wrappers/mouse.inc b/Units/MMLAddon/PSInc/Wrappers/mouse.inc
index 2646227..6047716 100644
--- a/Units/MMLAddon/PSInc/Wrappers/mouse.inc
+++ b/Units/MMLAddon/PSInc/Wrappers/mouse.inc
@@ -30,7 +30,7 @@ begin
   CurrThread.Client.IOManager.SetMousePos(X, Y);
 end;
 
-procedure ps_GetMousePos(out x, y: integer); extdecl;
+procedure ps_GetMousePos(var x, y: integer); extdecl;
 begin
    CurrThread.Client.IOManager.GetMousePos(X, Y);
 end;
diff --git a/Units/MMLAddon/PSInc/Wrappers/ocr.inc b/Units/MMLAddon/PSInc/Wrappers/ocr.inc
index fcc847b..67a801c 100644
--- a/Units/MMLAddon/PSInc/Wrappers/ocr.inc
+++ b/Units/MMLAddon/PSInc/Wrappers/ocr.inc
@@ -21,12 +21,12 @@ begin
   Result := CurrThread.Client.MOCR.TextToMask(text,font);
 end;
 
-procedure ps_TPAFromTextWrap(const text, font: String;out w,h : integer;out TPA : TPointArray); extdecl;
+procedure ps_TPAFromTextWrap(const text, font: String;var w,h : integer;out TPA : TPointArray); extdecl;
 begin
   TPA := CurrThread.Client.MOCR.TextToFontTPA(text, font, w, h);
 end;
 
-function ps_TPAFromText(const text, font: String;out w,h : integer): TPointArray; extdecl;
+function ps_TPAFromText(const text, font: String;var w,h : integer): TPointArray; extdecl;
 begin
   Result := CurrThread.Client.MOCR.TextToFontTPA(text, font, w, h);
 end;
diff --git a/Units/MMLCore/finder.pas b/Units/MMLCore/finder.pas
index d65c5c9..c28eb99 100644
--- a/Units/MMLCore/finder.pas
+++ b/Units/MMLCore/finder.pas
@@ -2159,7 +2159,7 @@ begin
     goodPoints[i] := not DTM.bp[i];
 
   MaxX := x2 - x1;
-  MaxY := x2 - y1;
+  MaxY := y2 - y1;
 
   // Init data structure B.
   W := x2 - x1;