uses oglgraph;

var 
  gd, gm: smallint;
  color : integer;
  
begin
  gd := Detect;
  gm := DetectMode;
  initgraph(gd, gm, ''); 

    color := white;                      {выбираем цвет с помощью описанной в библиотеке константы white}
    setBkColor(color);                   {устанавливаем "нужный" цвет фона - ничего не происходит}
    cleardevice;                         {"очищаем" экран нужным цветом - установленным цветом фона } 
  
    ...                                  {Можно что-то рисовать}
  
  repeat until graphkeypressed;        { Сохраняем рисунок на экране до нажатия кнопки} 

  closegraph();           
end.