From be0a2f9c82ea50f9a4ef1b2852659246be0e251d Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Sat, 2 Apr 2016 09:01:14 +0000
Subject: [PATCH] TurboPower_iPro: Fix list index error if ENTER is pressed and
 no TabItems are present

git-svn-id: trunk@52101 -
---
 components/turbopower_ipro/iphtmltablist.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/turbopower_ipro/iphtmltablist.pas b/components/turbopower_ipro/iphtmltablist.pas
index 64c339c755..cae7df1f0b 100644
--- a/components/turbopower_ipro/iphtmltablist.pas
+++ b/components/turbopower_ipro/iphtmltablist.pas
@@ -27,7 +27,7 @@ implementation
 
 function TIpHtmlTabList.GetTabItem: TObject;
 begin
-  if FIndex = -1 then
+  if (FIndex = -1) or (FIndex >= Count) then
     Exit(nil)
   else
     Result := TObject(Items[FIndex]);