haccp delphi prototype.