[lmikle]

так-же, как я тебе сказал. Только тогда не надо отдельно писать длинну каждого элемента, т.к. данный тип имеет фикстрованный размер.

Код:

var
  A : Array Of Byte
  F : TFileStream;
  I : Integer;
begin
  SetLength(A,10);
  ...

  // Запись
  F := TFileStream.Create(...);
  I := Length(A);
  F.WriteBuffer(I,SizeOf(Integer));
  For I := Low(A) To High(A) Do
    F.WriteBuffer(A[i],SizeOf(Byte));
  F.Free;

  // Чтение
  F := TFileStream.Create(...);
  F.ReadBuffer(I,SizeOf(Integer));
  SetLength(A,I);
  For I := Low(A) To High(A) Do
    F.ReadBuffer(A[i],SizeOf(Byte));
  F.Free;
end;