Funcion: InitGraph()
Sintaxis:

procedure InitGraph(
 
  var GraphDriver: SmallInt;
 
  var GraphMode: SmallInt;
 
  const PathTo

Descripcion: Inicializa el modo grafico del sistema.

GraphDriver tiene dos valores validos: GraphDrier=0 el cual desarolla un auto detect y inicializa el mas alto y posible modo con los colores. 1024*768*64K es la resolucion mas alta posible soportada por el drive, si tu necesitas una resolucion mas alta, tu deves editar MODES.PPI. if tu necesitas otro modo, entonces establce GraphDriver a otro valor diferente de cero, y Graphmode a el modo que quieras (modo VESA donde 640*480*256 es 101h, etc, etc.). PathToDriver es solo necesitado, si tu usas fuentes BGI de Borlan. Free Pascal no ofrece BGI fonts como Borlan, estos deber obtenerse por separado.
Ejemplo:

var 
   gd,gm : integer; 
   PathToDriver : string; 
begin 
   gd:=detect; { highest possible resolution } 
   gm:=0; { not needed, auto detection } 
   PathToDriver:='C:PPBGI'; { path to BGI fonts, 
                                drivers aren't needed } 
   InitGraph(gd,gm,PathToDriver); 
   if GraphResult<>grok then 
     halt; ..... { whatever you need } 
   CloseGraph; { restores the old graphics mode } 
end.