procedure TfrmPrincipal.Button1Click(Sender: TObject);
var
  ArqIni: TIniFile;
  sLcBase : String;
  frmSelecaoBase : TfrmSelecaoBase;
begin
  Panel1.Caption := 'Desconectado';

  sLcBase := '';
  frmSelecaoBase := TfrmSelecaoBase.Create(Self);   //teste
  frmSelecaoBase.ShowModal;

  ArqIni := TIniFile.Create(ExtractFilePath(Application.ExeName)+'\Conexao.ini');
  sLcBase := ArqIni.ReadString('Base', 'Database', sLcBase);

  AbreBanco(sLcBase);
end;