BGI Error: Graphics not initialized (use InitGraph)

[Klyan]

Здравствуйте!
Возникла проблема при написании программы на Borland Pascal 7.0, ОС Win XP SP3
Вот кусок кода

uses CRT, GRAPH, windos;
Var
   D,M,R: integer;
...........................
............................
D:=Detect;
InitGraph(D,M,'e:\bp\bgi');
R:= GraphResult;
if R=0 then writeln('Ok') else writeln('oshibka');

EGAVGA.BGI - в папке bgi лежит, файл Grahp.TPU на месте, директории Unit и Object прописаны.
При компиляции выводится ошибка: "BGI Error: Graphics not initialized (use InitGraph)"

[Vistar]

Значит вы используете функции графического режима еще до инициализации графики. Пересмотрите внимательно свою программу.

[Stilet]

Либо кривой BGI либо, перемести EGAVGA.BGI в папку с pas файлом, а вместо пути пустую строку.

[Klyan]

Все, спасибо разобрался!