diff --git a/Projects/Simba/simbaunit.pas b/Projects/Simba/simbaunit.pas
index fe26100..2405fd7 100644
--- a/Projects/Simba/simbaunit.pas
+++ b/Projects/Simba/simbaunit.pas
@@ -1622,7 +1622,7 @@ end;
 procedure TSimbaForm.ActionCloseTabExecute(Sender: TObject);
 begin
   if(PageControl1.PageCount > 1)then
-    Self.DeleteTab(PageControl1.TabIndex,false)
+    Self.DeleteTab(TTabSheet(Sender).TabIndex,false)
   else
     Self.ClearScript;  //DeleteTab would take care of this already, but yeah, it's neater this way.
 end;