var b: TVecInt; AStream: TFileStream; Precision: TPrecision; begin CreateIt(b); AStream := TFileStream.Create('C:test.bin',fmOpenRead); try Precision := b.ReadHeader(AStream); // Read info for b b.ReadValues(AStream,Precision); // Read values of b finally AStream.Free; FreeIt(b); end; end;