var b: Vector; AStream: TFileStream; Precision: TPrecision; begin 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; end; end;