From 12fca938265f1a15315b24018af284c495e88dfa Mon Sep 17 00:00:00 2001
From: Raymond <Raymond@.(none)>
Date: Sun, 9 May 2010 01:12:42 +0200
Subject: [PATCH] Silly mistake :$

---
 Projects/SAMufasaGUI/testunit.pas | 2 +-
 Units/MMLCore/tpa.pas             | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Projects/SAMufasaGUI/testunit.pas b/Projects/SAMufasaGUI/testunit.pas
index b2f1351..48f600d 100644
--- a/Projects/SAMufasaGUI/testunit.pas
+++ b/Projects/SAMufasaGUI/testunit.pas
@@ -46,7 +46,7 @@ uses
   CastaliaSimplePasPar, v_AutoCompleteForm, PSDump;
 
 const
-  SimbaVersion = 655;
+  SimbaVersion = 656;
 
 type
 
diff --git a/Units/MMLCore/tpa.pas b/Units/MMLCore/tpa.pas
index f25cce0..b8e4ba9 100644
--- a/Units/MMLCore/tpa.pas
+++ b/Units/MMLCore/tpa.pas
@@ -1341,9 +1341,9 @@ begin;
   if height > SearchBox.y2 then
     Screenbox.y2 := Screenbox.y2 + (height - SearchBox.y2);
   SearchBox.y2 := Height;
-  SetLength(Screen, SearchBox.x2 + 1,Searchbox.y2 + 1);
-  for i := ScreenBox.x2 downto 0 do
-    FillChar(screen[i][0],screenbox.y2+1,0);
+  SetLength(Screen, SearchBox.x2 + 1,SearchBox.y2 + 1);
+  for i := SearchBox.x2 downto 0 do
+    FillChar(screen[i][0],SearchBox.y2+1,0);
   SetLength(InversedTPA,(SearchBox.x2 + 1) * (Searchbox.y2 + 1));
   for I := 0 to LenSearch do
     Screen[ SearchTPA[I].x,SearchTPA[I].y] := True;