SQLDB:=TSQLiteDatabase.Create(ServiceName+'.db');
//SQLDB.ExecSQL('CHARACTER SET utf8 COLLATE utf8_unicode_ci');
SQLDB.ExecSQL('CREATE TABLE `INFO` (version VARCHAR(20) PRIMARY KEY, author VARCHAR(120), version_software VARCHAR(20), name_project VARCHAR(20), date_create VARCHAR(20))');
SQLDB.ExecSQL('CREATE TABLE `PROGRESS` (ID INTEGER PRIMARY KEY, NAME_METHOD VARCHAR(255), ID_METHOD INTEGER)');
SQLDB.ExecSQL('CREATE TABLE `NETWORK` (ID INTEGER PRIMARY KEY, METHOD VARCHAR(120), LINK VARCHAR(255),'+
'HEADERS TEXT, POST TEXT, PROTOCOL VARCHAR(4), TIMEOUT INTEGER, TIMEOUT_KEEPALIVE INTEGER, MY_UA INTEGER,'+
'UA VARCHAR(255), MYNETYPE VARCHAR(255), I_VAR_SETTING TEXT, VAR_SETTING TEXT)');
SQLDB.ExecSQL('CREATE TABLE `PROCEDURES` (ID INTEGER PRIMARY KEY, NAME_PROCEDURE VARCHAR(255), MY_VAR TEXT)');
SQLDB.ExecSQL('CREATE TABLE `FUNCTIONS` (ID INTEGER PRIMARY KEY, NAME_FUNCTIONS VARCHAR(255), MY_VAR TEXT)');
SQLDB.ExecSQL('CREATE TABLE `LOGS`  (ID INTEGER PRIMARY KEY, LOG TEXT)');
SQLDB.ExecSQL('INSERT INTO `INFO` (`version`, `author`, `version_software`, `name_project`, `date_create`) VALUES("'+Unit1.VersionSoftware+'", "'+LabeledEdit2.Text+'", "'+Unit1.VersionSoftware+'", "'+ServiceName+'", "'+DT+'")');
FreeAndNil(SQLDB);