var  
  ppufile : pppufile;  
begin  
{ Initialize object }  
  ppufile:=new(pppufile,init('test.ppu');  
{ open the unit and read the header, returns false when it fails }  
  if not ppufile.openfile then  
    error('error opening unit test.ppu');  
 
{ here we can read the unit }  
 
{ close unit }  
  ppufile.closefile;  
{ release object }  
  dispose(ppufile,done);  
end;