Код инициализации Firedac

procedure TDataModule1.SqlDriver;
 begin
      DataMod.DataModule1.FDPhysMySQLDriverLink1.DriverID := 'MySQL';
      DataMod.DataModule1.FDPhysMySQLDriverLink1.VendorLib := 'libmysql_x86.dll';
 end;
 
procedure TDatamodule1.ServerConnect;
begin
  DataMod.DataModule1.FDConnection1.DriverName := 'MySQL';
  DataMod.DataModule1.FDConnection1.Params.DriverID := 'MySQL';
  DataMod.DataModule1.FDConnection1.Params.Password := 'extuser';
  DataMod.DataModule1.FDConnection1.Params.UserName := 'extuser';
  DataMod.DataModule1.FDConnection1.Params.Database := 'bizcom';
  DataMod.DataModule1.FDConnection1.Params.Add('server:=192.168.100.40');
  DataMod.DataModule1.FDConnection1.Params.Add('port:=3306');
  DataMod.DataModule1.FDConnection1.Connected := true;
 
end;

//Запись адреса в конфиг (отладка)
procedure TForm1.Button1Click(Sender: TObject);
var adr : string;
begin
CorrectList(0, adr);
end;
 
//Запуск (отладка)
procedure TForm1.FormCreate(Sender: TObject);
begin
 SqlAdress;
end;
 
//Загрузка или создание конфига.
procedure TForm1.SqlAdress;
var
SqlServ: string;
Sconf : TextFile;
begin
AssignFile(SConf, 'SqlServer');
if FileExists('SqlServer') then   //Проверяем наличие файла с адресом сервера SQL
begin                       //Условие при наличии файла
    Reset(SConf);
    //ShowMessage('File is oppen to read');
    Readln(SConf, SqlServ);
    CloseFile(SConf);
    Edit1.Text := SqlServ;
end
else
begin                       //условие при отсутствии файла
      //ShowMessage('File not found');
      ReWrite(SConf);
      Writeln(SConf);    //Адрес сервера
      Writeln(SConf);    //порт
      Writeln(SConf);    //логин пользователя
      Writeln(SConf);    //пароль пароль (обдумать)
      Writeln(SConf);    //разрядность ОС
      CloseFile(SConf);
     // if FileExists('SqlServer') then ShowMessage('File file is created');
 
end;
 
end;
 
//Вход в базу под логином техника с возможностью создавать и редактировать записи
procedure TForm1.login;
begin
 
end;
 
//Просмотр отчета по сервису без возможности редактировать
procedure TForm1.FreeView;
begin
 
end;
 
//Выполнение запроса
procedure TForm1.qts;
begin
 
end;
 
// Установка соединения с базой (тестовое)
procedure TForm1.Button2Click(Sender: TObject);
begin
DataMod.DataModule1.SqlDriver;
DataMod.DataModule1.ServerConnect;
end;
 
//Вход в базу
procedure TForm1.connect;
begin
 
end;
 
//Процедура редактирования конфига
//CopyPaste  https://********************/showthread.php?t=103995  Miha85193
procedure TForm1.CorrectList(const listNo : integer; listData : string);
var
  List_1: TStringList;
begin
  List_1 := TStringList.Create;
  List_1.LoadFromFile('SqlServer');
  List_1.Strings[listNo] := listData; // строки нумеруются с нуля
  List_1.SaveToFile('SqlServer');
  List_1.Free;
end;

 DataMod.DataModule1.FDConnection1.Params.Server :='192.168.100.40';
 DataMod.DataModule1.FDConnection1.Params.Port :=3306;

DataMod.DataModule1.FDConnection1.DriverName := 'MySQL';

  cs:=TFDConnection.Create(nil);
  cs.Connected:=False;
  cs.Params.Clear;
  cs.Params.Values['Login Prompt']:='False';
  cs.Params.Values['DriverID']:='SQLite';
  cs.Params.Values['DriverName']:='SQLite';
  cs.Params.Values['Database']:=ExtractFilePath(ParamStr(0))+'shop_backup.sqlite';
  cs.Params.Values['lockingmode']:='lmExclusive';
  cs.Params.Values['JournalMode']:='jmMemory';
  cs.Params.Values['Synchronous']:='snNormal';
  cs.Params.Values['BusyTimeout']:='5000';
  cs.Params.Values['SharedCache']:='True';
  cs.Params.Values['CacheSize']:='100000';
  cs.UpdateOptions.LockWait:=true;
  cs.TxOptions.Isolation:=xiSerializible;