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