diff --git a/components/tdi/read-me.txt b/components/tdi/read-me.txt
index 3e19c2010..30a90e77a 100644
--- a/components/tdi/read-me.txt
+++ b/components/tdi/read-me.txt
@@ -183,3 +183,5 @@ to explain the component
 [+] Added Public method: procedure CloseAllTabs;
     (by: DSA)
 
+07/01/2018
+[-] Fix compilation for Lazarus 1.9.0 (by: DSA)
diff --git a/components/tdi/tdiclass.pas b/components/tdi/tdiclass.pas
index a0f7eabd9..952c96154 100644
--- a/components/tdi/tdiclass.pas
+++ b/components/tdi/tdiclass.pas
@@ -1182,7 +1182,7 @@ var
 begin
   if (tdiMiddleButtomClosePage in FTDIOptions) and (Button = mbMiddle) then
   begin
-     APageIndex := TabIndexAtClientPos( Point(X,Y) );
+     APageIndex := IndexOfPageAt(X, Y);
      if (APageIndex >= 0) and (APageIndex >= FixedPages) then
      begin
        RemovePage( APageIndex );