[Ghost]

steelik
Есть там маленький глюк: даже прописав все пути или конкретно указав в InitGraph путь к графическому драйверу (третий параметр), он (драйвер) не находится. Попробуй переписать его (файлик egavga.bgi из папки BGI) в текущую папку (в которой лежит сама твоя прога). И еще можно попробовать детектить графический режим, а не указывать явно - с этим тоже возникают проблемы при работе из под винды:

uses
  graph, crt;

var
  gd, gm: integer;

begin
  gd := detect;
  initgraph (gd, gm, '');
  if GraphResult = grOk then begin
    line (0, 0, getmaxx, getmaxy);
    readkey;
    closegraph;
  end;
end.