add ggtBerechnung.pas - another example