Worked on gvolume.pas