Файл базы данных SQLite лежит в папке с програмой

procedure TForm2.FormCreate(Sender: TObject);
const
ConnectionString = 'Database=%s\strh.db;  DriverName:=sQLite ';
begin
FDConnection1.Connected:=false;
FDConnection1.ConnectionString:='DriverName.SQLite; Database='+ ExtractFilePath(Application.ExeName)+'strh.db;';
 
 FDConnection1.Connected:=true;
 FDQuery1.Open;
 FDQuery2.open;
 FDQuery3.open;
 FDQuery4.open;
 FDQuery5.open;
 FDQuery6.open;

FDConnection1.Connected:=true;

with FDConnection1.Params do
 begin
 add ('DriverID=SQLite')   ;
 add ('Database='+ ExtractFilePath(Application.ExeName)+'%s\strh.db;') ;
 end;
 FDConnection1.Connected:=true;
end;

var c:TFDConnection
begin
  c:=TFDConnection.Create(nil);
  c.Connected:=False;
  c.Params.Clear;
  c.Params.Values['Login Prompt']:='False';
  c.Params.Values['DriverID']:='SQLite';
  c.Params.Values['DriverName']:='SQLite';
  c.Params.Values['Database']:=ExtractFilePath(paramstr(0))+'shop_backup.sqlite';
  c.Params.Values['lockingmode']:='Normal';
  c.Params.Values['JournalMode']:='WAL';
  c.Params.Values['Synchronous']:='Normal';
  c.Params.Values['BusyTimeout']:='20000';
  c.Params.Values['SharedCache']:='False';
  c.Params.Values['CacheSize']:='30000';
 
 try
    c.Connected:=True;
  except
    on E: EFDDBEngineException do
      case E.Kind of
        ekUserPwdInvalid: ; // user name or password are incorrect
        ekUserPwdExpired: ; // user password is expired
        ekServerGone: ;     // DBMS is not accessible due to some reason
        ekOther: ;//The error does not fall into any of the categories listed 
     else
        result:=False;              // other issues
      end;
  end;