[kti]

Во-первых нужно создавать объект не от переменной, а от класса (т.е. TFileStream.Create, а не FS.Create).

Да, это я неправильно написал. Решил проблему через следующую конструкцию:

Код:

  if FileExists(Param1 + Name_DB) then begin
        FS := TFileStream.Create(Param1 + Name_DB, fmOpenReadWrite);
      	FS.Seek(0, soFromEnd); // можно было FS.Position := FS.Size
    end
    else begin
        FS := TFileStream.Create(Param1 + Name_DB, fmCreate);
    end;

Если значение Size совпадает с Position - значит мы в конце файла.

здесь Position начинается с нуля? тогда наверно if TS.Position >= TS.Size-1 then ... файл кончился
Так?

а оказывается что их прочиталось меньше, из-за чего ReadBuffer вызовет исключение, что для нас будет означать что либо неверный формат файла или файл повреждён (недокачан).

вот я и хочу вставить проверку на битый файл, например кто-то взял и удалил последние пару байт

нужно вместо ReadBuffer использовать просто Read.

Понял, вот так и сделаю..
Еще раз спасибо