diff --git a/Projects/Simba/simbaunit.lfm b/Projects/Simba/simbaunit.lfm
index 9f6d4b7..d207d31 100644
--- a/Projects/Simba/simbaunit.lfm
+++ b/Projects/Simba/simbaunit.lfm
@@ -798,6 +798,7 @@ object SimbaForm: TSimbaForm
           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
           FF00FFFFFF00FFFFFF00FFFFFF006D9CD4896A9AD2FB6697CFEE
         }
+        ShortCut = 16465
         OnClick = ActionExitExecute
       end
     end
diff --git a/Projects/Simba/simbaunit.pas b/Projects/Simba/simbaunit.pas
index 895869d..15ff464 100644
--- a/Projects/Simba/simbaunit.pas
+++ b/Projects/Simba/simbaunit.pas
@@ -46,7 +46,7 @@ uses
   CastaliaSimplePasPar, v_AutoCompleteForm, PSDump;
 
 const
-  SimbaVersion = 660;
+  SimbaVersion = 666;
 
 type
 
diff --git a/Units/MMLCore/tpa.pas b/Units/MMLCore/tpa.pas
index 32669d2..5425f43 100644
--- a/Units/MMLCore/tpa.pas
+++ b/Units/MMLCore/tpa.pas
@@ -981,23 +981,24 @@ begin;
   fy := TempBox.y2 - TempBox.y1+3;
   fx := TempBox.x2 - TempBox.x1+2;
   for i := 0 to fx do
-    FillChar(PointsToFill[i][0],fy*sizeof(boolean),0);
+    FillChar(PointsToFill[i][0],fy,0);
   x := TempBox.x1 - 1;
   y := TempBox.y1 - 1;
   CurrentArray := -1;
   SetLength(Stack   , LengthTPA + 1);
   SetLength(Lengths , LengthTPA + 1);
   SetLength(TempTPA , LengthTPA + 1);
-  For I := 0 to LengthTPA do
+  for I := 0 to LengthTPA do
   begin;
     TempTPA[I].x := TPA[I].x - x;
     TempTPA[I].y := TPA[I].y - y;
   end;
-  For I := 0 to LengthTPA do
+  for I := 0 to LengthTPA do
     PointsToFill[TempTPA[I].x][TempTPA[I].y] := True;
-  For I := 0 to LengthTPA do
+  for I := 0 to LengthTPA do
     if PointsToFill[TempTPA[I].x][TempTPA[I].y] then
     begin;
+      PointsToFill[TempTPA[i].x][TempTPA[i].y] := false;
       inc(CurrentArray);
       SetLength(Result,CurrentArray + 1);
       SetLength(Result[CurrentArray],LengthTPA - I + 1);