[lazarus] setposition-seek problem found

[Peter Vreman]

> I found two other bugs. The first is is an unset function result in
>
>   function TStream.Seek(Offset: Int64; Origin: TSeekorigin): Int64;

Fixed