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;