Código Delphi [-] function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;