diff --git a/ide/text/whtmlhlp.pas b/ide/text/whtmlhlp.pas
index e822990d5b..d07318254d 100644
--- a/ide/text/whtmlhlp.pas
+++ b/ide/text/whtmlhlp.pas
@@ -154,13 +154,13 @@ begin
   AtInsert(Count,Item);
 end;
 
-function TTopicLinkCollection.At(Index: Integer): PString;
+function TTopicLinkCollection.At(Index: sw_Integer): PString;
 begin
   At:=inherited At(Index);
 end;
 
 function TTopicLinkCollection.AddItem(Item: string): integer;
-var Idx: integer;
+var Idx: sw_integer;
 begin
   if Item='' then Idx:=-1 else
   if Search(@Item,Idx)=false then