Как нарисовать в паскале лист в клетку 1000 на 1000

Вроде бы так, но когда программа выполняется, то из-за такого большого кол-ва клеток (1000х1000) все отображается как один черный квадрат ))) если сделать кол-во поменьше (например 100х100), то клетки будут видны (скрин).

uses graphABC;

var
  w, h, i: integer;

begin
  setwindowsize(1010, 1010);
  w := windowwidth div 1000;
  h := windowheight div 1000;
  for i := 1 to 1000 do
  begin
    line(i * w, 0, i * w, windowheight);
    line(0, i * h, windowwidth, i * h);
  end;
end.