Почему выдаётся ошибка?:

procedure TForm1.Button1Click(Sender: TObject);
var x,xrgb : array of byte; fs:Tfilestream; z:integer;
begin
fs:=Tfilestream.Create('C:.db', fmOpenRead);
// file 'C:.db' существует.
fs.seek(0,soBeginning); // можно и без этого
setlength(x,8);
fs.Readbuffer(x,8); // или fs.Read(x,8);
FreeAndNil(fs); // Error! fs.free выдаёт то же самое.
Z:=x[1]; //просто так...
end;

Или же каким образом считать из файла в динамический массив энное количество битов?

Тут дело в fs.ReadBuffer(x, 8); В случае fs.Read(x, 8); ошибки нет

Я извиняюсь, но "В случае fs.Read(x, 8);" ошибка тоже есть! ХЭЛП!

а имя файла 'C:.db' - реальное?? Если да, то такое бывает?

Код

procedure TForm1.CutFile; var  Buffer: array of byte;  read, write: integer; begin  FInFile := TFileStream.Create(FFileName, fmOpenRead);  Log('In file - ' + FFileName);  FOutFile := TFileStream.Create(FCutFileName, fmCreate);  try    FInFile.Seek(4, soFromBeginning);    SetLength(Buffer, BufSize);    repeat      read:= FInFile.Read(Pointer(Buffer)^, BufSize);      write:= FOutFile.Write(Pointer(Buffer)^, read);    until (read <> write) or (read <> BufSize);  finally    FInFile.Free;    FOutFile.Free;  end; end;

Цитата

fs.Readbuffer(x,8); // или fs.Read(x,8);

Неправильная запись. Тут в процедуру Readbuffer передается х - который является указателем, лежащим на стеке. Размер указателя 4 байт. Следующими 4-мя байтами в стеке идет переменная fs - тоже указатель (в коде, конечно, стоит xrgb, но так как она не используется, то оптимизатор ее выкидывает). Вызовом Readbuffer ты перезаписываешь оба указателя непонятно чем.