procedure TFormPickDatabase.SetPersistenceLayer(const APersistenceLayerName: string);
var
  LPL: TtiPersistenceLayer;
  LDefaults: TtiPersistenceLayerDefaults;
begin
  LPL:= GTIOPFManager.PersistenceLayers.FindByPersistenceLayerName(APersistenceLayerName);
  if LPL<>nil then
  begin
    LDefaults:= TtiPersistenceLayerDefaults.Create;
    try
      LPL.AssignPersistenceLayerDefaults(LDefaults);
      paePersistenceLayer.Value:= LDefaults.PersistenceLayerName;
      paeDatabaseName.Value:= ExpandFileNameUTF8(GetDataDir + LDefaults.DatabaseName); { *Converted from ExpandFileName* }
      paeUserName.Value:= LDefaults.UserName;
      paePassword.Value:= LDefaults.Password;
      gINI.WriteString(Name, cINIIdentLastPerLayer, LDefaults.PersistenceLayerName);
    finally
      LDefaults.Free;
    end;
  end else
  begin
    paePersistenceLayer.Value:= '';
    paeDatabaseName.Value:= '';
    paeUserName.Value:= '';
    paePassword.Value:= '';
  end;
end;