unit BGI;

interface
  const BGIPath:string='C:\SCHULS~1\TP\BGI';
implementation

begin
end.