[lazarus] setposition-seek problem found

[Peter Vreman]

The problem is not in the compiler but in the FCL:

There are 2 seek methods:

Seek(int64,TSeekOrigin);
Seek(Longint,Word);

And in Setposition(int64) is the following code:

Seek(pos,soFromBeginning);

with soFromBeginning defined as:

{ TStream seek origins }
const
  soFromBeginning = 0;

And this is an integer value that is not compatible with the TSeekOrigin
enumarted type. So the Seek(longint,Word) will be called.