var b: TVec;
AStream: TFileStream;
begin
CreateIt(b);
b.SetIt(False,[0,0,1,3,2]);
AStream := TFileStream.Create('C:test.bin',fmCreate);
try
b.WriteHeader(AStream);
// Write info for b
b.WriteValues(AStream);
// Write values of b
finally
AStream.Free;
FreeIt(b);
end;
end;