var b: TVec; AStream: TFileStream; begin CreateIt(b); try b.SetIt(False,[0,0,1,3,2]); AStream := TFileStream.Create('C:test.Vec',fmCreate); try b.LoadFromStream(AStream); // Read info and header for b finally AStream.Free; end; finally FreeIt(b); end; end;