Графика в FPC 2.2.0 Опции

[mr.voland]

Вобщем есть задание нарисовать чебурашку.
В колледже мы используем БП, дома у меня стоит виста поэтому юзаю FPC
В учебники сказано что пистаь надо так.

programm test;
uses Graph;
var driver, mode: integer;
Begin
driver:=detect;
initgraph (driver, mode, 'C:\TP\BGI');
Ellipse (200,250,0,359,10,20); (это овал)
closegraph;
end.

папки C:\TP\BGI у меня естественно нет я не чего умне как взять папку из БП скопировал папку в фрипаскаль не придумал.
Но не работает (чесно говоря я и не удивлен)
собственно и вопрос что делать?.
Заранее благодарен.

[Ozzя]

{$ifdef Win32}
{$apptype GUI}
{$endif}

Uses
{$ifdef Win32}
  Windows,
  WinCrt,
{$else}
  Crt,
{$endif}
Graph;
//... далее Ваша программа