program Erudite; uses Forms, Controls, _fm_Main in '_fm_Main.pas' {fm_Main}, _fm_Word in '_fm_Word.pas' {fm_Word}, _fm_Sugg in '_fm_Sugg.pas' {fm_Suggest}, _fm_DMan in '_fm_DMan.pas' {fm_DMan}, _fm_WordC in '_fm_WordC.pas' {fm_WordC}, _fm_PMoves in '_fm_PMoves.pas' {fm_PMoves}, _fm_Skip in '_fm_Skip.pas' {fm_Skip}, _fm_Setup in '_fm_Setup.pas' {fm_Setup}, Computer in 'Computer.pas', LangSupp in 'LangSupp.pas', Aphorism in 'Aphorism.pas', _fm_Lang in '_fm_Lang.pas' {fm_Lang}, _fm_Top in '_fm_Top.pas' {fm_Top}, _fm_Net in '_fm_Net.pas' {fm_Net}, _fm_About in '_fm_About.pas' {fm_About}; {$R *.RES} {$H-} begin Application.Initialize; Application.CreateForm(Tfm_Main, fm_Main); Application.CreateForm(Tfm_About, fm_About); fm_About.Show; fm_About.Update; try Screen.Cursor:=crHourGlass; Application.CreateForm(Tfm_Word, fm_Word); Application.CreateForm(Tfm_Suggest, fm_Suggest); Application.CreateForm(Tfm_DMan, fm_DMan); Application.CreateForm(Tfm_WordC, fm_WordC); Application.CreateForm(Tfm_PMoves, fm_PMoves); Application.CreateForm(Tfm_Skip, fm_Skip); Application.CreateForm(Tfm_Setup, fm_Setup); Application.CreateForm(Tfm_Lang, fm_Lang); Application.CreateForm(Tfm_Top, fm_Top); Application.CreateForm(Tfm_Net, fm_Net); Application.Title := 'The Erudite'; finally Screen.Cursor:=crDefault; fm_About.Close; end; Application.Run; end.