아래(오라클 데이터베이스 동적 연결 예)와 같은 문장으로 해결할 수 있을 듯 싶군요.

   try
      Application.CreateForm(TDM, DM);
      Dm.Database1.Connected := false;
      Dm.Database1.Params.Clear;
      Dm.Database1.Params.Add('NET PROTOCOL=TCP/IP');
      Dm.Database1.Params.Add(Format('SERVER NAME=@%s', [Oracle Alias Name]));
      Dm.Database1.Params.Add(Format('USER NAME=%s', [UserName 변수]));
      Dm.Database1.Params.Add(Format('PASSWORD=%s', [Password 변수]));
      Dm.Database1.Params.Add('SQLPASSTHRU MODE=SHARED
NOAUTOCOMMIT');
      Dm.Database1.Connected := true;

      //성공했을 때 처리할 작업으로
   except
      MessageDlg('데이터베이스를 연결 할 수 없습니다.'+#10+
                 '시스템관리자에게 문의하여 주십시오.', mtError, [mbOk], 0);

      //실패했을 때 처리할 작업으로

      { 통상 데이터베이스 연결 실패시 프로그램을 종료합니다. 아래와 같이 }
      Application.Terminate;
      Exit;
    end;