Почему не работает, никто не знает?
 

В лазарусе..
пишут что проект успешно собран а на форме ничего не появлется..
uses
graph;
const
radius=200;
var
driver,mode:integer;
ugol:real;
x,y:integer;
x0,y0:integer;
begin
driver:=installuserdriver('svga256',nil);
mode:=4;
initgraph(driver,mode,'');
x0:=getmaxx div 2;
y0:=getmaxy div 2;
ugol:=0;
while ugol<2*pi do begin
x:=x0+round(radius*cos(ugol));
y:=y0+round(radius*sin(ugol));
putpixel(x,y,white);
ugol:=ugol+pi/180;
end;
readln;
closegraph;
end.

Ничего про Лазарус не знаю, но при запуске в обычном Турбопаскале прекраснейшим образом рисуется пунктирная окружность. Но! Я при тестировании запускал свой модуль старта графического режима, а все Ваши установки закомментарил. Отсюда вывод: либо у Вас неправильно сконфигурирована команда InitGraph (что скорее всего), либо окно этого Лазаруса, либо и то, и другое. А в собственно программе ошибок нет.