procedure SetStreamPosition(st: PStream; NewPos: Integer);
begin
  if NewPos < 0 then
  begin
    st.Seek($7FFFFFFF, spBegin); // Устанавливаем на 2 Гб от начала
    st.Seek(Cardinal(NewPos)-$7FFFFFFF, spCurrent); // Затем смещаем на нужную величину вверх от текущей
  end
  else
    st.Seek(NewPos, spBegin);
end;