fpc/tests/webtbs/tbug809.pp

PROGRAM Test;

USES Tbug809a;

BEGIN
  Schreib('Test');
END.