diff --git a/components/fpspreadsheet/uvirtuallayer_ole.pas b/components/fpspreadsheet/uvirtuallayer_ole.pas
index 57fe7a96a..8879730a3 100644
--- a/components/fpspreadsheet/uvirtuallayer_ole.pas
+++ b/components/fpspreadsheet/uvirtuallayer_ole.pas
@@ -435,7 +435,7 @@ end;
 function TVirtualLayer_OLE.intfSeek(const AHandle: TvlHandle;
   const APosition: int64; const Origin: word): int64;
 var
-  index: PtrInt;
+  index: Integer;
 begin
   if not HandleToIndex(AHandle,Index) Then begin
     Result:=-1;