Pesan Error Login

Try
// Coba Koneksi Public
DM.MSConnection1.Connected:=False;
DM.MSConnection1.ConnectionTimeout:=1;
DM.MSConnection1.Username:=Usr;
DM.MSConnection1.Password:=Psw;
DM.MSConnection1.Database:=DBS;
DM.MSConnection1.Server:=DBSourcePublic;
DM.MSConnection1.Port:=StrToInt(PortPublic);
DM.MSConnection1.Connected:=True;
Except
  Try
  // Coba Koneksi Local
  DM.MSConnection1.Connected:=False;
  DM.MSConnection1.ConnectionTimeout:=1;
  DM.MSConnection1.Username:=Usr;
  DM.MSConnection1.Password:=Psw;
  DM.MSConnection1.Database:=DBS;
  DM.MSConnection1.Server:=DBSourceLocal;
  DM.MSConnection1.Port:=StrToInt(PortLocal);
  Except MessageDlg('Koneksi Ke Server Gagal !', TMsgDlgType.mtWarning, [TMsgDlgbtn.mbOK], 0,
    Procedure(const AResult:TModalResult)
      Begin
        if AResult=mrOk then exit;
      end); Exit;
  end;
End;