program HTTPServer;

uses
  Vcl.Forms,
  uHTTPServer_Main in 'uHTTPServer_Main.pas' {fHTTPServer},
  Vcl.Themes,
  Vcl.Styles,
  uDecodePostRequest in 'uDecodePostRequest.pas' {DecodePostRequest: TDataModule},
  uHTTPServerCommandGet in 'uHTTPServerCommandGet.pas' {HTTPServerCommandGet: TDataModule},
  uDivideAndGatherFileServer in 'uDivideAndGatherFileServer.pas' {DivideAndGatherFileServer: TDataModule},
  uGetFoldersAndFiles in 'uGetFoldersAndFiles.pas' {GetFoldersAndFiles: TDataModule},
  uDataBaseUnitServer in 'uDataBaseUnitServer.pas' {DataBaseUnitServer: TDataModule},
  uFileTypeServer in 'uFileTypeServer.pas' {FileTypeServer: TDataModule},
  uDeleteServer in 'uDeleteServer.pas' {Delete: TDataModule},
  uAddFoldersAndFilesToDB in 'uAddFoldersAndFilesToDB.pas' {AddFoldersAndFilesToDB: TDataModule},
  uDataBaseInitialTableFilling in 'uDataBaseInitialTableFilling.pas' {DataBaseInitialTableFillling: TDataModule},
  uCreateUniqueNameServer in 'uCreateUniqueNameServer.pas' {CreateUniqueNameServer: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfHTTPServer, fHTTPServer);
  Application.CreateForm(TAddFoldersAndFilesToDB, AddFoldersAndFilesToDB);
  //  Application.CreateForm(TDataBaseInitialTableFillling, DataBaseInitialTableFillling);
  TStyleManager.TrySetStyle('Luna');
  Application.Run;
end.
