Birden fazla database oluşturma

[dilo]

Merhabalar;  

Her ay için faklı database oluşturuyorum, buraya kadar sorun yok.

Örnek:
Kullanıcı calender ile 2025 yılı ocak ayına tıkladığında db yoksa otomatik olarak oluşuyor, fakat güncel olan zaman döndüğünde var olan db'ye tekrar bağlanmasını nasıl sağlaya bilirim?

procedure TForm2.CalendarClick(Sender: TObject);
begin
  YTarihi := StrToDate(FormatDateTime('dd/mm/yyyy', Calendar.Date));
  PGDB := Klasor + FormatDateTime('yyyy mmmmm', Calendar.Date) + '.db';
  try
    With MainFDConnection do
    begin
      Connected := False;
      LoginPrompt := False;
      Params.Clear;
      Params.Values['Database'] := PGDB;
      Params.Values['DriverID'] := 'SQLite';
      Params.Values['CharacterSet'] := 'utf8';
      Connected := False;
    end;
    With MainFDQuery do
    begin
      Active := False;
      Connection := MainFDConnection; 
      Close;
      SQL.Clear;
      SQL.Add('CREATE TABLE IF NOT EXISTS USERS(');
      SQL.Add('ID INTEGER PRIMARY KEY AUTOINCREMENT');
      SQL.Add(', USERNAME VARCHAR(255)');
      SQL.Add(', USERPASS VARCHAR(255)');
      SQL.Add(', HATIRLA VARCHAR(255)');
      SQL.Add(', YETKI VARCHAR(255)');
      SQL.Add(', TARIH DATE');
      SQL.Add(' ) ; ');
      ExecSQL;
    end;
  finally
    MainFDQuery.Close;
  end;
end;

[SimaWB]

Ne sorulmak istediği tam belli değil. Sanırım o yüzden şimdiye kadar cevaplanmamış.
With MainFDConnection do içerisindeki ikinci Connected değerine True atamak var olan DB'ye bağlanması için yeterli gözüküyor.

[Halil Han BADEM]

Eğer veritabanı isimleri belirli bir parametre ile oluşturulmuşsa, 2025 yılında db ismi "2025_db" olsun örneğin, ilk kurulan db ismi ise "2017_db" olsun. Sistem yılını referans alarak veritabanı bağlantılarınızı sağlayabilirsiniz.