Mmmm...... no se como estes inicializando el modo grafico, podrias hacer algo como:
Const
Ruta = 'D:\TP\BGI';
Var
Controlador, Modo : integer;
Begin
Controlador := Detect;
Initgraph (Controlador,Modo,Ruta)
Voila.... con eso deberia arrancar sin problemas tu modo grafico
Que viva el T.P. aunque ahora casi nadie lo utiliza