UnitGraph problems

[n_mehdi]

i am seeking for an answer to fix my unit graph problems
basically when i try to use it this error pops up
BGI error: Graphics not initialized (use InintGraph)
the funny thing though is that this unit works fine sometimes soooo
your answers will be appriciated thanks

[Duoas]

You have to use the InitGraph procedure before you can use anything else in the Graph unit.

[n_mehdi]

You have to use the InitGraph procedure before you can use anything else in the Graph unit.

i have already done that but i got no results ... my program is following codes

program test;
uses Graph;
var driver, mode: Integer;
begin
driver := detect;
initgraph(driver, mode, 'c:\tp\bgi');
ellipse(100, 100, 0, 360, 30, 50);
ellipse(100, 100, 0, 180, 50, 30);
circle(100, 180, 50);
arc(100, 180, 180, 0,30);
readln;
closegraph
end.

[Duoas]

Make sure to check the GraphResult variable after calling InitGraph.

Hope this helps.