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;