program turing;

uses
  SysUtils,
  dbtables,
  Forms,
  u0001 in 'u0001.pas' {f0001};

{$R *.RES}
var
 wpath:string;
begin
   //antes de inicializar cria o alias
   wpath:=ExtractFilePath( Application.ExeName)+'db'; //local onde esta a aplicacao + db
   if session.IsAlias('turing')
   then session.DeleteAlias('turing');
   session.addstandardalias('turing',wpath,'paradox');  session.saveconfigfile;
   
   Application.Initialize;
   Application.CreateForm(Tf0001, f0001);
   Application.Run;
end.