add pcat.pas