* fix test after r32820

git-svn-id: trunk@32855 -

tests/webtbs/tw16161.pp

@@ -11,9 +11,9 @@ uses
 var
   Stream1: TMemoryStream;
   _Stream1, _Stream2: IStream;
-  cbRead, cbWritten: LargeInt;
+  cbRead, cbWritten: LargeUInt;
   cbRead1: DWord;
-  NewPos: Int64;
+  NewPos: LargeUInt;
   buf: array[0..3] of char;
 begin
   Stream1 := TMemoryStream.Create;
@@ -32,4 +32,4 @@ begin
   if (cbRead <> 3) or (cbRead1 <> 3) then
     halt(3);
   Stream1.Free;
-end.
+end.