program SunriseChat; {$WARN SYMBOL_PLATFORM OFF} uses Forms, Dialogs, UMainWindow in 'UMainWindow.pas' {MainWindow}, UAutoRegistry in 'UAutoRegistry.pas', UInfoWindow in 'UInfoWindow.pas' {InfoWindow}, UOptionsWindow in 'UOptionsWindow.pas' {OptionsWindow}, UAboutWindow in 'UAboutWindow.pas' {AboutWindow}, UNetworkTest in 'UNetworkTest.pas' {NetworkTest}, UNewRoom in 'UNewRoom.pas' {NewRoom}, UPing in 'UPing.pas', ULogExceptions in 'ULogExceptions.pas' {LogExceptions}, ULocalization in 'ULocalization.pas' {Localization: TDataModule}, UTextFileStream in 'UTextFileStream.pas', UJobProgressView in 'UJobProgressView.pas' {JobProgressView}, UProtocolMessageLog in 'UProtocolMessageLog.pas' {ProtocolMessageLogForm}; {$R *.res} begin ReportMemoryLeaksOnShutdown := DebugHook <> 0; Application.Initialize; Application.CreateForm(TLocalization, Localization); Application.CreateForm(TMainWindow, MainWindow); Application.CreateForm(TLogExceptions, LogExceptions); Application.CreateForm(TJobProgressView, JobProgressView); Application.CreateForm(TProtocolMessageLogForm, ProtocolMessageLogForm); LogExceptions.AppVersion := ClientVersion; LogExceptions.AppReleaseDate := ClientReleaseDate; if not MainWindow.StopProgram then begin Application.CreateForm(TNewRoom, NewRoom); Application.CreateForm(TInfoWindow, InfoWindow); Application.CreateForm(TOptionsWindow, OptionsWindow); Application.CreateForm(TAboutWindow, AboutWindow); Application.CreateForm(TNetworkTest, NetworkTest); Application.Run; end; end.